![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ans-report.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to ans-report.fs CVS log | Up to [gforth] / gforth |
| version 1.8, 2003/01/10 16:57:25 | version 1.9, 2003/01/25 20:11:30 |
|---|---|
| Line 138 ans-report-words definitions | Line 138 ans-report-words definitions |
| \ >body ! ; | \ >body ! ; |
| dup @ docol: <> -12 and throw \ for colon defs only | dup @ docol: <> -12 and throw \ for colon defs only |
| >body ['] branch xt>threaded over ! | >body ['] branch xt>threaded over ! |
| cell+ >r >body r@ - r> ! ; | cell+ >r >body r> ! ; |
| forth definitions | forth definitions |
| ans-report-words | ans-report-words |