| version 1.8, Fri Jan 10 16:57:25 2003 UTC | version 1.9, Sat Jan 25 20:11:30 2003 UTC | ||
|---|---|---|---|
|
|
||
| \ >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 |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |