[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.47 and 1.48

version 1.47, Mon May 15 14:04:12 2000 UTC version 1.48, Sat May 27 09:41:29 2000 UTC
Line 364 
Line 364 
     \ in dubio pro:      \ in dubio pro:
     drop true ;      drop true ;
   
 : >head ( cfa -- nt ) \ gforth  to-head  : >head-noprim ( cfa -- nt ) \ gforth  to-head-noprim
     $25 cell do ( cfa )      $25 cell do ( cfa )
         dup i - count $9F and + cfaligned over alias-mask + =          dup i - count $9F and + cfaligned over alias-mask + =
         if ( cfa )          if ( cfa )
Line 379 
Line 379 
   
 [ELSE]  [ELSE]
   
 : >head ( cfa -- nt ) \ gforth  to-head  : >head-noprim ( cfa -- nt ) \ gforth  to-head-noprim
     $25 cell do ( cfa )      $25 cell do ( cfa )
         dup i - count $9F and + cfaligned over alias-mask + =          dup i - count $9F and + cfaligned over alias-mask + =
         if ( cfa ) i - cell - unloop exit          if ( cfa ) i - cell - unloop exit
Line 389 
Line 389 
   
 [THEN]  [THEN]
   
 ' >head ALIAS >name  
   
 : body> 0 >body - ;  : body> 0 >body - ;
   
 : (search-wordlist)  ( addr count wid -- nt | false )  : (search-wordlist)  ( addr count wid -- nt | false )

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help