[gforth] / gforth / kernel / io.fs  

gforth: gforth/kernel/io.fs

Diff for /gforth/kernel/io.fs between version 1.3 and 1.4

version 1.3, Sat Sep 13 12:05:52 1997 UTC version 1.4, Sat May 2 21:29:07 1998 UTC
Line 32 
Line 32 
 ;  ;
 [THEN]  [THEN]
   
   [IFUNDEF] (type)
   : (type)  BEGIN  dup  WHILE
       >r dup c@ (emit) 1+ r> 1-  REPEAT  2drop ;
   [THEN]
   
 Defer type ( c-addr u -- ) \ core  Defer type ( c-addr u -- ) \ core
 ' (type) IS Type  ' (type) IS Type
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help