[gforth] / gforth / Attic / kernal.fs  

gforth: gforth/Attic/kernal.fs

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

version 1.1, Fri Feb 11 16:30:46 1994 UTC version 1.2, Wed Apr 20 17:12:03 1994 UTC
Line 286 
Line 286 
 : compiler     ( name -- ) find  ?dup  : compiler     ( name -- ) find  ?dup
   IF  0> IF  execute EXIT THEN compile, EXIT THEN number? dup    IF  0> IF  execute EXIT THEN compile, EXIT THEN number? dup
   IF  0> IF  swap postpone Literal  THEN  postpone Literal    IF  0> IF  swap postpone Literal  THEN  postpone Literal
   ELSE  notfound  THEN ;    ELSE  drop notfound  THEN ;
   
 : [     ['] interpreter  IS parser state off ; immediate  : [     ['] interpreter  IS parser state off ; immediate
 : ]     ['] compiler     IS parser state on  ;  : ]     ['] compiler     IS parser state on  ;
Line 486 
Line 486 
 : (Constant)  Header reveal [ :docon ] ALiteral cfa, ;  : (Constant)  Header reveal [ :docon ] ALiteral cfa, ;
 : Constant  (Constant) , ;  : Constant  (Constant) , ;
 : AConstant (Constant) A, ;  : AConstant (Constant) A, ;
 : 2CONSTANT ( w1 w2 "name" -- ) \ double  : 2Constant ( w1 w2 "name" -- ) \ double
     (constant) 2, ;    Create 2, DOES> 2@ ;
   
 \ IS Defer What's Defers TO                            24feb93py  \ IS Defer What's Defers TO                            24feb93py
   

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