[gforth] / gforth / look.fs  

gforth: gforth/look.fs

Diff for /gforth/look.fs between version 1.7 and 1.8

version 1.7, Thu Mar 27 13:31:02 1997 UTC version 1.8, Sun Jul 6 14:29:33 1997 UTC
Line 28 
Line 28 
   
 decimal  decimal
   
 : PrimStart ['] true >name ;  
   
 \ look                                                  17may93jaw  \ look                                                  17may93jaw
   
   \ rename to discover!!!
   
 : (look)  ( xt startlfa -- lfa flag )  : (look)  ( xt startlfa -- lfa flag )
         false swap          false swap
         BEGIN @ dup          BEGIN @ dup
Line 41 
Line 41 
         drop nip          drop nip
         dup 0<> ;          dup 0<> ;
   
   
   \ !!! nicht optimal!
   [IFUNDEF] look
   [IFUNDEF] dictionary-end  has-rom [ELSE] false [THEN]
   [IF]
   
   : look ( cfa -- lfa flag )
     forth-wordlist @ (look) ;
   
   [ELSE]
   
   : PrimStart ['] true >name ;
   
 : look ( cfa -- lfa flag )  : look ( cfa -- lfa flag )
         dup dictionary-end forthstart within          dup dictionary-end forthstart within
         IF          IF
Line 49 
Line 62 
             >name dup ??? <>              >name dup ??? <>
         THEN ;          THEN ;
   
   [THEN]
   [THEN]

Generate output suitable for use with a patch program
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help