[gforth] / gforth / kernel / basics.fs  

gforth: gforth/kernel/basics.fs

Diff for /gforth/kernel/basics.fs between version 1.40 and 1.41

version 1.40, Sun Aug 17 22:55:58 2003 UTC version 1.41, Mon Aug 18 19:29:15 2003 UTC
Line 62 
Line 62 
   
 \ UNUSED                                                17may93jaw  \ UNUSED                                                17may93jaw
   
 has? ec  has? ec [IF]
 [IF]  
 unlock ram-dictionary borders nip lock  unlock ram-dictionary borders nip lock
 AConstant dictionary-end  AConstant dictionary-end
 [ELSE]  [ELSE]
Line 87 
Line 86 
   
 has? ec [IF]  has? ec [IF]
 : in-dictionary? ( x -- f )  : in-dictionary? ( x -- f )
     dictionary-end < ;      dictionary-end u< ;
 [ELSE]  [ELSE]
 : in-dictionary? ( x -- f )  : in-dictionary? ( x -- f )
     forthstart dictionary-end within ;      forthstart dictionary-end within ;


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

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help