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

version 1.1, 1994/02/11 16:30:46 version 1.4, 1994/05/05 15:46:46
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 466  Create ???  ," ???" Line 466  Create ???  ," ???"
   
 \ direct threading is implementation dependent  \ direct threading is implementation dependent
   
 : Create    Header reveal [ :dovar ] ALiteral cfa, ;  : Create    Header reveal [ :dovar ] Literal cfa, ;
   
 \ DOES>                                                17mar93py  \ DOES>                                                17mar93py
   
Line 483  Create ???  ," ???" Line 483  Create ???  ," ???"
 : User      Variable ;  : User      Variable ;
 : AUser     AVariable ;  : AUser     AVariable ;
   
 : (Constant)  Header reveal [ :docon ] ALiteral cfa, ;  : (Constant)  Header reveal [ :docon ] Literal 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
   
Line 509  Create ???  ," ???" Line 509  Create ???  ," ???"
   
 \ : ;                                                  24feb93py  \ : ;                                                  24feb93py
   
 : : ( -- colon-sys )  Header [ :docol ] ALiteral cfa, 0 ] ;  : EXIT  ( -- )  postpone ;s ;  immediate
   
   : : ( -- colon-sys )  Header [ :docol ] Literal cfa, 0 ] ;
 : ; ( colon-sys -- )  ?struc postpone exit reveal postpone [ ;  : ; ( colon-sys -- )  ?struc postpone exit reveal postpone [ ;
   immediate restrict    immediate restrict
 : :noname ( -- xt colon-sys )  here [ ' : @ ] ALiteral cfa, 0 ] ;  : :noname ( -- xt colon-sys )  here [ :docol ] Literal cfa, 0 ] ;
   
 \ Search list handling                                 23feb93py  \ Search list handling                                 23feb93py
   
Line 792  Variable argc Line 794  Variable argc
   ." ANS FORTH-93 (c) 1993 by the ANS FORTH-93 Team" cr quit ;    ." ANS FORTH-93 (c) 1993 by the ANS FORTH-93 Team" cr quit ;
   
 : boot ( **env **argv argc -- )  : boot ( **env **argv argc -- )
   argc ! argv ! env !    argc ! argv ! env !  main-task up!
   sp@ dup s0 ! $10 + >tib ! rp@ r0 !  fp@ f0 !  cold ;    sp@ dup s0 ! $10 + >tib ! rp@ r0 !  fp@ f0 !  cold ;
   
 : bye  cr 0 (bye) ;  : bye  cr 0 (bye) ;

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


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