[put-new-variable
Adrian Prantl <adrian@complang.tuwien.ac.at>**20090126203306] {
hunk ./compiler.fs 401
-: getput-variable ( -- ) getput s" variable" push-xt ;
+: getput-variable ( -- )
+    head? if s" get_variable" else s" put_new_variable" endif push-xt, ;
hunk ./compiler.fs 744
-s" :- concatenate(A,B,[a,b])." compile eval
+s" :- concatenate(A,B,[a,b])." compile eval bye
}