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

version 1.3, 1994/05/03 15:24:12 version 1.4, 1994/05/05 15:46:46
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
Line 511  Create ???  ," ???" Line 511  Create ???  ," ???"
   
 : EXIT  ( -- )  postpone ;s ;  immediate  : EXIT  ( -- )  postpone ;s ;  immediate
   
 : : ( -- colon-sys )  Header [ :docol ] ALiteral cfa, 0 ] ;  : : ( -- 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 794  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.3  
changed lines
  Added in v.1.4


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