Diff for /gforth/Attic/kernel.fs between versions 1.15 and 1.16

version 1.15, 1997/02/09 21:51:39 version 1.16, 1997/02/24 22:28:58
Line 489  Defer 'throw Line 489  Defer 'throw
   
 : throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception  : throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception
     ?DUP IF      ?DUP IF
         [ here 9 cells ! ] \ entry point for signal handler          [ has-header [IF] here 9 cells ! [THEN] ] \ entry point for signal handler
         handler @ dup 0= IF          handler @ dup 0= IF
 [ has-os [IF] ]  [ has-os [IF] ]
             2 (bye)              2 (bye)
Line 747  Create ???  0 , 3 c, char ? c, char ? c, Line 747  Create ???  0 , 3 c, char ? c, char ? c,
 : !does    ( addr -- ) \ gforth store-does  : !does    ( addr -- ) \ gforth store-does
     lastxt does-code! ;      lastxt does-code! ;
 : (does>)  ( R: addr -- )  : (does>)  ( R: addr -- )
     r> /does-handler + !does ;      r> cfaligned /does-handler + !does ;
 : dodoes,  ( -- )  : dodoes,  ( -- )
   here /does-handler allot does-handler! ;    cfalign here /does-handler allot does-handler! ;
   
 doer? :dovar [IF]  doer? :dovar [IF]
 : Create ( "name" -- ) \ core  : Create ( "name" -- ) \ core
Line 1308  Defer 'cold ' noop IS 'cold Line 1308  Defer 'cold ' noop IS 'cold
     pathstring 2@ process-path pathdirs 2!      pathstring 2@ process-path pathdirs 2!
     init-included-files      init-included-files
 [ [THEN] ]  [ [THEN] ]
     'cold  \    'cold
 [ has-files [IF] ]  [ has-files [IF] ]
     argc @ 1 >      argc @ 1 >
     IF      IF

Removed from v.1.15  
changed lines
  Added in v.1.16


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