gforth: gforth/look.fs

-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
  Line 44
  \ !!! nicht optimal!
  [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 )
-   forth-wordlist @ (look) ;
+     >name dup ??? <> ;
+ [THEN]
  [ELSE]

-Generate output suitable for use with a patch program
+Legend:



Removed from v.1.8
 


changed lines


 
Added in v.1.9
 Legend:



Removed from v.1.8
 


changed lines


 
Added in v.1.9
-Removed from v.1.8
+Added in v.1.9