![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to other-tests.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to other-tests.fs CVS log | Up to [gforth] / gforth |
| version 1.2, 1997/02/01 14:59:31 | version 1.3, 1997/03/04 17:49:53 |
|---|---|
| Line 9 foo2 | Line 9 foo2 |
| foo1 | foo1 |
| \ locals in an if structure | |
| : locals-test1 | |
| lp@ swap | |
| if | |
| { a } a | |
| else | |
| endif | |
| lp@ <> abort" locals in if error 1" ; | |
| 0 locals-test1 | |
| 1 locals-test1 | |
| \ comments across several lines | \ comments across several lines |
| ( fjklfjlas;d | ( fjklfjlas;d |