bugfix: tcan_inherit_generic works again

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"
+