[Preliminary shell.
Adrian Prantl <adrian@complang.tuwien.ac.at>**20090127142842] {
hunk ./compiler.fs 762
+256 constant max-line
+Create line-buffer max-line allot
+: shell
+    begin
+    while line-buffer max-line stdin read-line throw { flag }
+	    line-buffer swap 2dup type cr
+	    dup 0 > if
+		compile
+		eval
+	    endif
+	    flag
+    repeat
+;
+
hunk ./compiler.fs 789
-s" member(X,[X|_])." compile eval
-s" member(X,[_|L]) :- member(X,L)." compile eval bye
-
hunk ./compiler.fs 795
-s" :- concatenate(A,B,[a,b])." compile eval bye
+s" :- concatenate(A,B,[a,b])." compile eval
hunk ./compiler.fs 803
-s" :- qsort([a], [], R)." compile eval bye
+s" :- qsort([a], [], R)." compile eval
hunk ./compiler.fs 807
-s" :- compare_terms(Y,a,b)." compile eval bye
+s" :- compare_terms(Y,a,b)." compile eval 
+
+\ shell
+
+
+s" member(X,[X|_])." compile eval
+s" member(X,[_|L]) :- member(X,L)." compile eval
+s" :- member(X,[a,b,c])." compile eval
+
+bye
}