| version 1.7, Fri Mar 22 18:40:00 2002 UTC | version 1.8, Fri Jan 10 16:57:25 2003 UTC | ||
|---|---|---|---|
|
|
||
| \ 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 |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |