gforth/glocals.fs - diff

Return to glocals.fs CVS log

Up to [gforth] / gforth

version 1.16, 1995/11/15 17:29:08	version 1.18, 1996/01/25 16:45:52
Line 488 forth definitions	Line 488 forth definitions
\ this gives a unique identifier for the way the xt was defined	\ this gives a unique identifier for the way the xt was defined
\ words defined with different does>-codes have different definers	\ words defined with different does>-codes have different definers
\ the definer can be used for comparison and in definer!	\ the definer can be used for comparison and in definer!
dup >code-address [ ' bits >code-address ] Literal =	dup >code-address [ ' spaces >code-address ] Literal =
\ !! this definition will not work on some implementations for `bits'	\ !! this definition will not work on some implementations for `bits'
if \ if >code-address delivers the same value for all does>-def'd words	if \ if >code-address delivers the same value for all does>-def'd words
>does-code 1 or \ bit 0 marks special treatment for does codes	>does-code 1 or \ bit 0 marks special treatment for does codes
Line 504 forth definitions	Line 504 forth definitions
code-address!	code-address!
then ;	then ;

\ !! untested
: TO ( c\|w\|d\|r "name" -- ) \ core-ext,local	: TO ( c\|w\|d\|r "name" -- ) \ core-ext,local
\ !! state smart	\ !! state smart
0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal f: flocal }	0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal f: flocal }