tests/macros/tmacro7.nim


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()