[put_nil back again
Adrian Prantl <adrian@complang.tuwien.ac.at>**20090126184406] {
hunk ./compiler.fs 401
+: getput-nil  ( -- )  getput s" nil"  push-xt ;
hunk ./compiler.fs 447
-    nil?  if 2drop Areg getunify-nil push-cr else
+    nil?  if 2drop Areg getput-nil push-cr else
hunk ./compiler.fs 729
-s" :- do(parse(s(np,vp),[birds,fly,[]]))" test-compile bye
+s" :- do(parse(s(np,vp),[birds,fly,[]]))" test-compile
hunk ./compiler.fs 735
-s" :- concatenate([],[],[])." test-compile run-clause
-s" :- concatenate([],X,X)." test-compile run-clause
+s" :- concatenate([],[],[])." test-compile run-clause 
+s" :- concatenate([],X,X)." test-compile run-clause bye
}