version 1.28, 1997/07/31 16:17:09
|
version 1.29, 1997/12/01 21:15:02
|
Line 190 variable span ( -- a-addr ) \ core-ext
|
Line 190 variable span ( -- a-addr ) \ core-ext
|
dup 0 wordlist-link - rehash |
dup 0 wordlist-link - rehash |
REPEAT |
REPEAT |
drop |
drop |
@ udp ! dp ! ; |
@ udp ! dp ! |
|
\ clean up vocabulary stack |
|
0 vp @ 0 |
|
?DO |
|
vp cell+ I cells + @ dup here > |
|
IF drop ELSE swap 1+ THEN |
|
LOOP |
|
dup 0= or set-order \ -1 set-order if order is empty |
|
get-current here > IF |
|
forth-wordlist set-current |
|
THEN ; |
|
|
: marker ( "mark" -- ) |
: marker ( "mark" -- ) |
marker, Create A, |
marker, Create A, |