Return to extend.fs CVS log | Up to [gforth] / gforth |
version 1.53, 2003/01/26 20:56:37 | version 1.54, 2003/01/31 22:45:11 |
---|---|
Line 266 variable span ( -- c-addr ) \ core-ext | Line 266 variable span ( -- c-addr ) \ core-ext |
drop | drop |
\ restore udp and dp | \ restore udp and dp |
[IFDEF] forget-dyncode | [IFDEF] forget-dyncode |
dup cell+ @ forget-dyncode 0= abort" gforth bug" | dup cell+ @ forget-dyncode drop |
[THEN] | [THEN] |
@ udp ! dp ! | @ udp ! dp ! |
\ clean up vocabulary stack | \ clean up vocabulary stack |