[beautification
gergo@complang.tuwien.ac.at**20090127160349] {
hunk ./compiler.fs 13
+Create tracing -1 ,
hunk ./compiler.fs 116
-    s\" .\" <entering " push-xt, addr u nargs push-clause-name
-    s\" >\" cr " push-xt;
+    s\" tracing flag-set? if .\" <entering " push-xt, addr u nargs push-clause-name
+    s\" >\" cr endif" push-xt;
hunk ./compiler.fs 731
+    cr \ so we are not on the same line as the "redefined" messages
hunk ./compiler.fs 793
+    tracing off
hunk ./compiler.fs 806
+    tracing on
hunk ./compiler.fs 822
+s" missing_feature(garbage_collection)." compile eval
+
hunk ./wam.fs 256
-: set? ( ptr -- )
+: flag-set? ( ptr -- )
hunk ./wam.fs 652
-    interactive-mode set? stop-search set? and if
+    interactive-mode flag-set? stop-search flag-set? and if
hunk ./wam.fs 677
-    interactive-mode set? stop-search set? and if
+    interactive-mode flag-set? stop-search flag-set? and if
hunk ./wam.fs 798
-    interactive-mode set? stop-search set? and if exit endif
+    interactive-mode flag-set? stop-search flag-set? and if exit endif
hunk ./wam.fs 804
-        interactive-mode set? if
+        interactive-mode flag-set? if
}