[gforth] / gforth / look.fs  

gforth: gforth/look.fs

Diff for /gforth/look.fs between version 1.11 and 1.12

version 1.11, Tue Dec 8 22:02:46 1998 UTC version 1.12, Sun Jan 3 21:48:37 1999 UTC
Line 66 
Line 66 
 : PrimStart ['] true >name ;  : PrimStart ['] true >name ;
   
 : look ( cfa -- lfa flag )  : look ( cfa -- lfa flag )
     dup dictionary-end forthstart within      dup in-dictionary?
     IF      IF
         PrimStart (look)  
     ELSE  
         >name dup ??? <>          >name dup ??? <>
       ELSE
           PrimStart (look)
     THEN ;      THEN ;
   
 [THEN]  [THEN]


Generate output suitable for use with a patch program
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help