gforth/kernel.fs - diff

Return to kernel.fs CVS log

Up to [gforth] / gforth

version 1.15, 1997/02/09 21:51:39	version 1.17, 1997/03/04 22:09:54
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