37 lines
529 B
Nim
37 lines
529 B
Nim
discard """
|
|
output: '''calling!stuff
|
|
calling!stuff
|
|
'''
|
|
joinable: false
|
|
"""
|
|
|
|
# issue #7792
|
|
|
|
import macros
|
|
|
|
|
|
proc callProc(str: string) =
|
|
echo "calling!" & str
|
|
|
|
|
|
macro testMacro(code: typed): untyped =
|
|
let stmtList = newNimNode(nnkStmtList)
|
|
|
|
let stmts = code[6]
|
|
|
|
for n in stmts.children:
|
|
# the error happens here
|
|
stmtList.add(newCall(bindSym("callProc"), newLit("stuff")))
|
|
|
|
code[6] = stmtList
|
|
|
|
result = newEmptyNode()
|
|
|
|
|
|
proc main() {.testMacro.} =
|
|
echo "test"
|
|
echo "test2"
|
|
|
|
|
|
when isMainModule:
|
|
main()
|