[_
Adrian Prantl <adrian@complang.tuwien.ac.at>**20090127135805] {
hunk ./compiler.fs 170
+: _? ( c -- b ) [Char] _ = ;
hunk ./compiler.fs 357
-: var? peek vALPHA? ;
+: var? peek vALPHA? over _? or ;
hunk ./compiler.fs 581
-    peek vALPHA?                 if var else
+    var?                         if var else
hunk ./compiler.fs 775
+s" member(X,[X|_])." compile eval
+s" member(X,[_|L]) :- member(X,L)." compile eval bye
+
hunk ./compiler.fs 779
-s" concatenate([X|L1],L2,[X|L3]) :- concatenate(L1,L2,L3)." compile eval 
+s" concatenate([X|L1],L2,[X|L3]) :- concatenate(L1,L2,L3)." compile eval
hunk ./compiler.fs 784
-s" :- concatenate(A,B,[a,b])." compile eval
+s" :- concatenate(A,B,[a,b])." compile eval bye
hunk ./compiler.fs 789
-s" qsort([],R,R)." compile
-s" qsort([X|L],R0,R) :- split(L,X,L1,L2), qsort(L1,R0,[X|R1]), qsort(L2,R1,R)." compile bye
+s" qsort([],R,R)." compile eval
+s" qsort([X|L],R0,R) :- split(L,X,L1,L2), qsort(L1,R0,[X|R1]), qsort(L2,R1,R)." compile eval
hunk ./compiler.fs 792
+s" :- qsort([a], [], R)." compile eval bye
+s" :- qsort([], [a,b,c], R)." compile eval
+s" :- qsort([a,b,c], [], R)." compile eval
+s" :- qsort([b,a,c], [], R)." compile eval
}