![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to loops.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / compat|
Return to loops.fs CVS log | Up to [gforth] / gforth / compat |
| version 1.1, 1996/01/25 16:47:05 | version 1.2, 1996/11/11 17:00:07 |
|---|---|
| Line 11 | Line 11 |
| 2dup u> | 2dup u> |
| IF | IF |
| swap | swap |
| ENDIF | THEN |
| drop ; | drop ; |
| : U+DO ( compile-time: -- do-sys; run-time: u1 u2 -- ) | : U+DO ( compile-time: -- do-sys; run-time: u1 u2 -- ) |