[wam-allocate fix
Adrian Prantl <adrian@complang.tuwien.ac.at>**20090126192730] {
hunk ./compiler.fs 38
+: head? ( -- b ) cur-mode @ c-mode set? ;
+: query? ( -- b ) s" (toplevel)" last-clause last-clause-u @ compare 0 = ;
+
hunk ./compiler.fs 93
-    addr u last-clause last-clause-u @ compare if
+    addr u last-clause last-clause-u @ compare 0 <> if
hunk ./compiler.fs 112
-    s\" >\n\"" push-xt;
-    s" wam-allocate" push-xt;
+    s\" >\" cr " push-xt;
+    query? not if s" wam-allocate" push-xt; endif
hunk ./compiler.fs 117
-    s" (toplevel)/0" addr u compare not
+    s" (toplevel)/0" addr u compare 0 <>
hunk ./compiler.fs 394
-: head? ( -- b ) cur-mode @ c-mode set? ;
-: query? ( -- b ) s" (toplevel)/0" last-clause last-clause-u @ compare not ;
-
hunk ./compiler.fs 507
-    s" wam-deallocate" push-xt;
+    query? not if s" wam-deallocate" push-xt; endif
hunk ./compiler.fs 657
-	    s" wam-deallocate" push-xt;
+	    query? not if s" wam-deallocate" push-xt; endif
hunk ./compiler.fs 738
-s" :- concatenate([a,b],[c],X)." test-compile run-clause
+s" :- concatenate([a,b],[c],X)." test-compile run-clause 
}