| version 1.10, Thu Oct 6 21:02:57 2011 UTC | version 1.11, Thu Oct 6 21:12:29 2011 UTC | ||
|---|---|---|---|
|
|
||
| ['] compiler-r IS parser1 state on ; | ['] compiler-r IS parser1 state on ; | ||
| : >postpone ( token table -- ) | : >postpone ( token table -- ) | ||
| dup r:fail = IF no.extensions THEN | |||
| >r r@ r>lit perform r> r>comp @ compile, ; | >r r@ r>lit perform r> r>comp @ compile, ; | ||
| : postpone ( "name" -- ) \ core | : postpone ( "name" -- ) \ core |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |