1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
discard """
output: '''
calling!stuff
calling!stuff
'''
disabled: true
"""
# this test modifies an already semchecked ast (bad things happen)
# this test relies on the bug #4547
# 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()
|
