[gforth] / gforth / kernel / Attic / interp.fs  

gforth: gforth/kernel/Attic/interp.fs

Diff for /gforth/kernel/Attic/interp.fs between version 1.1 and 1.2

version 1.1, Wed May 21 20:40:15 1997 UTC version 1.2, Fri Jun 6 17:28:15 1997 UTC
Line 45 
Line 45 
 \ here allot , c, A,                                   17dec92py  \ here allot , c, A,                                   17dec92py
   
 : allot ( n -- ) \ core  : allot ( n -- ) \ core
       dup unused > -8 and throw
     dp +! ;      dp +! ;
 : c,    ( c -- ) \ core  : c,    ( c -- ) \ core
     here 1 chars allot c! ;      here 1 chars allot c! ;
Line 766 
Line 767 
 \ RECURSE                                               17may93jaw  \ RECURSE                                               17may93jaw
   
 : recurse ( compilation -- ; run-time ?? -- ?? ) \ core  : recurse ( compilation -- ; run-time ?? -- ?? ) \ core
       \g calls the current definition.
     lastxt compile, ; immediate restrict      lastxt compile, ; immediate restrict
 ' reveal alias recursive ( -- ) \ gforth  ' reveal alias recursive ( compilation -- ; run-time -- ) \ gforth
         immediate  \g makes the current definition visible, enabling it to call itself
   \g recursively.
           immediate restrict
   
 \ EVALUATE                                              17may93jaw  \ EVALUATE                                              17may93jaw
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help