[gforth] / gforth / look.fs  

gforth: gforth/look.fs

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

version 1.8, Sun Jul 6 14:29:33 1997 UTC version 1.9, Sun Aug 31 19:31:29 1997 UTC
Line 44 
Line 44 
   
 \ !!! nicht optimal!  \ !!! nicht optimal!
 [IFUNDEF] look  [IFUNDEF] look
 [IFUNDEF] dictionary-end  has-rom [ELSE] false [THEN]  has? ec [IF]
 [IF]  
   
   has-rom
   [IF]
   : look
       dup [ unlock rom-dictionary area lock ]
       literal literal within
       IF
           >name dup ?? <>
       ELSE
           forth-wordlist @ (look)
       THEN ;
   [ELSE]
 : look ( cfa -- lfa flag )  : look ( cfa -- lfa flag )
   forth-wordlist @ (look) ;      >name dup ??? <> ;
   [THEN]
   
 [ELSE]  [ELSE]
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help