![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to extend.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 |