![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cond.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to cond.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.24, 2010/12/31 18:09:02 | version 1.25, 2011/08/19 17:57:56 |
|---|---|
| Line 91 variable backedge-locals | Line 91 variable backedge-locals |
| rdrop | rdrop |
| dup cs-item? ; | dup cs-item? ; |
| : CS-DROP ( dest -- ) \ gforth | |
| dest? 2drop ; | |
| : cs-push-part ( -- list addr ) | : cs-push-part ( -- list addr ) |
| locals-list @ here ; | locals-list @ here ; |