![[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.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 |