--- gforth/look.fs 2002/09/14 11:18:57 1.18 +++ gforth/look.fs 2002/12/13 21:20:39 1.19 @@ -42,7 +42,7 @@ decimal then ; : (look) ( xt startlfa -- lfa flag ) - false swap + swap decompile-prim false rot BEGIN @ dup WHILE