Return to extend.fs CVS log | Up to [gforth] / gforth |
version 1.48, 2002/12/13 15:49:53 | version 1.49, 2002/12/21 17:27:13 |
---|---|
Line 265 variable span ( -- c-addr ) \ core-ext | Line 265 variable span ( -- c-addr ) \ core-ext |
REPEAT | REPEAT |
drop | drop |
\ restore udp and dp | \ restore udp and dp |
[IFDEF] forget-dyncode | |
dup cell+ @ forget-dyncode 0= abort" gforth bug" | dup cell+ @ forget-dyncode 0= abort" gforth bug" |
[THEN] | |
@ udp ! dp ! | @ udp ! dp ! |
\ clean up vocabulary stack | \ clean up vocabulary stack |
0 vp @ 0 | 0 vp @ 0 |