[Execution functioning, yet buggy
Adrian Prantl <adrian@complang.tuwien.ac.at>**20090126101614] {
hunk ./compiler.fs 105
+
+    ( debugging )
+    s\" .\" <entering " push-xt, addr u nargs push-clause-name
+    s\" >\"" push-xt;
+    
hunk ./compiler.fs 111
-    addr u nargs push-clause-name s"  @ try_me_else ~~" push-xt;
+    
+    s" (toplevel)/0" addr u compare not if
+	s" fail trust_me_else" push-xt; else
+	addr u nargs push-clause-name s"  @ try_me_else " push-xt; endif
hunk ./compiler.fs 235
-	bind-new-var
-    else 3drop endif
+	bind-new-var else
+	3drop endif
hunk ./compiler.fs 342
-	peek [? -rot peek-next ]? and
-    else 0
+	peek [? -rot peek-next ]? and else
+	0
hunk ./compiler.fs 481
-    s" '" push-xt
+    s" [']" push-xt
hunk ./compiler.fs 488
-    s" '" push-xt
+    s" [']" push-xt
hunk ./compiler.fs 568
-    end-last-clause
}