![[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.7, 2002/03/22 18:40:00 | version 1.8, 2003/01/10 16:57:25 |
|---|---|
| Line 137 ans-report-words definitions | Line 137 ans-report-words definitions |
| \ dodefer: over code-address! | \ dodefer: over code-address! |
| \ >body ! ; | \ >body ! ; |
| dup @ docol: <> -12 and throw \ for colon defs only | dup @ docol: <> -12 and throw \ for colon defs only |
| >body ['] branch compile-prim over ! | >body ['] branch xt>threaded over ! |
| cell+ >r >body r@ - r> ! ; | cell+ >r >body r@ - r> ! ; |
| forth definitions | forth definitions |