[birds flying
Adrian Prantl <adrian@complang.tuwien.ac.at>**20090126183004] {
hunk ./compiler.fs 308
-	    -1 throw
+	    cr ." SYNTAX ERROR: expected ']' or ',' before " type cr bye
hunk ./compiler.fs 327
-	 \ if next-char Nil? if next-char else prev-char endif cons else
-	    -1 throw
+	    \ if next-char Nil? if next-char else prev-char endif cons else
+	    cr ." SYNTAX ERROR: expected ']', '|' or ',' before " type cr bye
hunk ./compiler.fs 475
+: quote-atom ( addr u -- )
+    s\" s\"" push-xt push-xt, s\" \"" push-xt,
+;
+
hunk ./compiler.fs 482
-    nargs 0 = if s\" s\"" push-xt addrF uF push-xt, s\" \"" push-xt endif
+    nargs 0 = if addrF uF quote-atom s" " push-xt endif
hunk ./compiler.fs 492
-        addrF uF nargs push-functor getput-structure endif
+        addrF uF quote-atom nargs 32 uc->c+str push-xt getput-structure endif
hunk ./compiler.fs 727
-s" :- f([a,b,c])" test-compile bye
-s" :- do(parse(s(np,vp),[birds,fly,[]))" test-compile 
+s" :- f([a,b,c])" test-compile
+s" :- do(parse(s(np,vp),[birds,fly,[]]))" test-compile bye
}