gforth/glocals.fs - diff

Return to glocals.fs CVS log

Up to [gforth] / gforth

version 1.22, 1996/05/13 16:36:58	version 1.23, 1996/07/16 20:57:09
Line 505 forth definitions	Line 505 forth definitions
code-address!	code-address!
then ;	then ;

: TO ( c\|w\|d\|r "name" -- ) \ core-ext,local	:noname
	' dup >definer [ ' locals-wordlist >definer ] literal =
	if
	>body !
	else
	-&32 throw
	endif ;
	:noname
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 }
' dup >definer	' dup >definer
case	case
Line 520 forth definitions	Line 527 forth definitions
[ ' flocal >definer ] literal	[ ' flocal >definer ] literal
OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF
-&32 throw	-&32 throw
endcase ; immediate	endcase ;
interpretation:	special: TO ( c\|w\|d\|r "name" -- ) \ core-ext,local
' dup >definer [ ' locals-wordlist >definer ] literal =
if
>body !
else
-&32 throw
endif ;

: locals\|	: locals\|
\ don't use 'locals\|'! use '{'! A portable and free '{'	\ don't use 'locals\|'! use '{'! A portable and free '{'