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

version 1.1, 1994/02/11 16:30:46 version 1.2, 1994/04/20 17:12:03
Line 268  Defer parser Line 268  Defer parser
 Defer name      ' (name) IS name  Defer name      ' (name) IS name
 Defer notfound  Defer notfound
   
 : no.extensions  ( string -- )   IF &-13 bounce THEN ;  : no.extensions  ( string -- )  IF  &-13 bounce  THEN ;
   
 ' no.extensions IS notfound  ' no.extensions IS notfound
   
Line 286  Defer notfound Line 286  Defer notfound
 : 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  Create ???  ," ???" Line 486  Create ???  ," ???"
 : (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
   

Removed from v.1.1  
changed lines
  Added in v.1.2


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>