[strings everywhere
Adrian Prantl <adrian@complang.tuwien.ac.at>**20090126133431] {
hunk ./compiler.fs 83
-	s" : " push-xt, last-clause last-clause-u @ last-nargs @ push-clause-name
-	s" -def fail ;" push-xt;
+	s" : " push-xt,
+	last-clause last-clause-u @ last-nargs @ push-clause-name
+	s"  pl-fail ;" push-xt;
hunk ./compiler.fs 103
-    s" Create " push-xt, addr u nargs push-clause-name push-cr
+    \ s" Create " push-xt, addr u nargs push-clause-name push-cr
hunk ./compiler.fs 105
-    s" : " push-xt, addr u nargs push-clause-name s" -def" push-xt;
+    s" : " push-xt, addr u nargs push-clause-name s" " push-xt;
hunk ./compiler.fs 113
-    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
+    s" (toplevel)/0" addr u compare not
+    if	s\" s\" ' pl-fail\" try_me_else" push-xt;
+    else s\" s\" '" push-xt addr u nargs push-clause-name
+	s\" \" try_me_else" push-xt; endif
hunk ./compiler.fs 483
-    push-functor s\" -clause-1-def\" pl-execute" push-xt;
+    push-functor s\" -clause-1\" pl-execute" push-xt;
hunk ./compiler.fs 632
+	clause# dec
+	s" '" push-xt 	last-clause last-clause-u @ last-nargs @ push-clause-name s"  . cr" push-xt;
+	clause# inc drop
hunk ./compiler.fs 648
-	s" ' (toplevel)/0-clause-1-def prolog-shell" evaluate
+	s" ' (toplevel)/0-clause-1 prolog-shell" evaluate
hunk ./wam.fs 357
-fail global-state cp-bp !
+' pl-fail global-state cp-bp !
hunk ./wam.fs 629
+  \ ." *** pl-execute "
+  \ 2dup type cr
hunk ./wam.fs 632
+  \ ." xt = " dup . cr
hunk ./wam.fs 655
-        fail alternative <> if
+        ['] pl-fail alternative <> if
hunk ./wam.fs 683
-        fail global-state cp-bp @ =
+        ['] pl-fail global-state cp-bp @ =
hunk ./wam.fs 688
-    fail alternative <> if
+    ['] pl-fail alternative <> if
hunk ./wam.fs 751
-        alternative fail <> if
+        alternative ['] pl-fail <> if
hunk ./wam.fs 944
-  \ ." try_me_else" cr
+  \ cr ." *** try_me_else " 2dup type cr
hunk ./wam.fs 946
+  \ ." xt = " dup . cr
}