gforth/glocals.fs - diff

Return to glocals.fs CVS log

Up to [gforth] / gforth

version 1.23, 1996/07/16 20:57:09	version 1.25, 1996/08/26 10:07:18
Line 518 forth definitions	Line 518 forth definitions
case	case
[ ' locals-wordlist >definer ] literal \ value	[ ' locals-wordlist >definer ] literal \ value
OF >body POSTPONE Aliteral POSTPONE ! ENDOF	OF >body POSTPONE Aliteral POSTPONE ! ENDOF
[ ' clocal >definer ] literal	[ comp' clocal drop >definer ] literal
OF POSTPONE laddr# >body @ lp-offset, POSTPONE c! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE c! ENDOF
[ ' wlocal >definer ] literal	[ comp' wlocal drop >definer ] literal
OF POSTPONE laddr# >body @ lp-offset, POSTPONE ! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE ! ENDOF
[ ' dlocal >definer ] literal	[ comp' dlocal drop >definer ] literal
OF POSTPONE laddr# >body @ lp-offset, POSTPONE 2! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE 2! ENDOF
[ ' flocal >definer ] literal	[ comp' flocal drop >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 ;	endcase ;
special: TO ( c\|w\|d\|r "name" -- ) \ core-ext,local	interpret/compile: TO ( c\|w\|d\|r "name" -- ) \ core-ext,local

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