[Dictionary clear
Adrian Prantl <adrian@complang.tuwien.ac.at>**20090119143535] {
hunk ./compiler.fs 2
-\ Defer VARS
hunk ./compiler.fs 241
-	execute @ ." X" . ." unify_value" cr
+	execute @ ." Y" . ." unify_value" cr
hunk ./compiler.fs 244
-	." X" lastX . ." unify_variable" cr
+	." Y" lastX . ." unify_variable" cr
hunk ./compiler.fs 252
-	execute @ ." A" . ." A" i . getput ." _value" cr
+	execute @
+	dup i = if drop \ skip indent. copy
+	else ." Y" . ." A" i . getput ." _value" cr endif
hunk ./compiler.fs 287
-    1 postpone literal postpone A postpone ! \  FIXME do something better
-    0 postpone literal postpone swap postpone -do
+     1 postpone literal postpone A postpone ! \  FIXME do something better
+    0 postpone literal postpone swap postpone u-do
hunk ./compiler.fs 292
-        ( postpone r> )
hunk ./compiler.fs 327
+: goal ( ... ) { mode nargs addrF uF }
+    mode cur-mode !
+    nargs [ ' compile-arg for-each-arg ]
+    addrF uF type ." /" nargs . ." call" cr
+;
+
hunk ./compiler.fs 372
-\    table , VARS [IS] ! \ clear VARS dictionary
+
+    \ clear VARS dictionary
+    get-current { old }
+    VARS set-current
+    s" new-dict" 2dup VARS search-wordlist if execute endif
+    nextname marker
+    old set-current
hunk ./compiler.fs 423
-	num-args init
hunk ./compiler.fs 425
-	addrF uF query
+	addrF uF goal
}