Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.181, 2012/03/09 21:16:22 | version 1.182, 2012/05/09 22:23:52 |
---|---|
Line 2649 Defer instant-interpret-does>-hook ' no | Line 2649 Defer instant-interpret-does>-hook ' no |
T has? primcentric H [IF] | T has? primcentric H [IF] |
: does-resolved ( ghost -- ) | : does-resolved ( ghost -- ) |
\ g>xt dup T >body H alit, compile call T cell+ @ a, H ; | |
compile does-exec g>xt T a, H ; | compile does-exec g>xt T a, H ; |
[ELSE] | [ELSE] |
: does-resolved ( ghost -- ) | : does-resolved ( ghost -- ) |