--- gforth/look.fs 1994/02/11 16:30:46 1.1 +++ gforth/look.fs 1994/07/21 14:41:47 1.2 @@ -24,14 +24,14 @@ decimal : (look) ( xt startlfa -- lfa flag ) false swap BEGIN @ dup - WHILE dup cell+ name> + WHILE dup name> 3 pick = IF nip dup THEN REPEAT drop nip dup 0<> ; : look ( cfa -- lfa flag ) - dup forthstart u< + dup forthstart < IF PrimStart (look) ELSE >name true THEN ;