diff options
| -rwxr-xr-x | compiler/types.nim | 2 | ||||
| -rw-r--r-- | tests/compile/tmacroaspragma.nim | 8 |
2 files changed, 9 insertions, 1 deletions
diff --git a/compiler/types.nim b/compiler/types.nim index 90fffff40..7b7078e20 100755 --- a/compiler/types.nim +++ b/compiler/types.nim @@ -92,7 +92,7 @@ proc InvalidGenericInst(f: PType): bool = proc isPureObject(typ: PType): bool = var t = typ - while t.sons[0] != nil: t = t.sons[0] + while t.kind == tyObject and t.sons[0] != nil: t = t.sons[0] result = t.sym != nil and sfPure in t.sym.flags proc getOrdValue(n: PNode): biggestInt = diff --git a/tests/compile/tmacroaspragma.nim b/tests/compile/tmacroaspragma.nim new file mode 100644 index 000000000..0e5c352b3 --- /dev/null +++ b/tests/compile/tmacroaspragma.nim @@ -0,0 +1,8 @@ +import macros + +macro foo(x: stmt): stmt = + echo treerepr(callsite()) + result = newNimNode(nnkStmtList) + +proc zoo() {.foo.} = echo "hi" + |