gforth/glocals.fs - diff

Return to glocals.fs CVS log

Up to [gforth] / gforth

version 1.39, 1999/02/03 00:10:21	version 1.41, 1999/05/03 09:46:20
Line 335 create new-locals-map ( -- wordlist-map	Line 335 create new-locals-map ( -- wordlist-map
' drop A, \ rehash method	' drop A, \ rehash method
' drop A,	' drop A,

slowvoc @	new-locals-map mappedwordlist Constant new-locals-wl
slowvoc on
vocabulary new-locals	\ slowvoc @
slowvoc !	\ slowvoc on
new-locals-map ' new-locals >body wordlist-map A! \ !! use special access words	\ vocabulary new-locals
	\ slowvoc !
	\ new-locals-map ' new-locals >body wordlist-map A! \ !! use special access words

variable old-dpp	variable old-dpp

Line 348 variable old-dpp	Line 350 variable old-dpp
dp old-dpp !	dp old-dpp !
locals-dp dpp !	locals-dp dpp !
lastxt get-current	lastxt get-current
also new-locals	get-order new-locals-wl swap 1+ set-order
also locals definitions locals-types	also locals definitions locals-types
0 TO locals-wordlist	0 TO locals-wordlist
0 postpone [ ; immediate	0 postpone [ ; immediate