version 1.63, 2009/11/28 21:19:34
|
version 1.64, 2009/11/29 19:26:47
|
Line 182 AUser CSP
|
Line 182 AUser CSP
|
\G switch into postpone state |
\G switch into postpone state |
['] postponer1 is parser1 state on ; immediate restrict |
['] postponer1 is parser1 state on ; immediate restrict |
|
|
: postpone-literal postpone literal ; |
comp' literal drop alias postpone-literal |
: postpone-2literal postpone 2literal ; |
comp' 2literal drop alias postpone-2literal |
: postpone-fliteral postpone fliteral ; |
comp' fliteral drop alias postpone-fliteral |
: postpone-sliteral postpone sliteral ; |
comp' sliteral drop alias postpone-sliteral |
|
|
: ]]L ( postponing: x -- ; compiling: -- x ) \ gforth right-bracket-bracket-l |
: ]]L ( postponing: x -- ; compiling: -- x ) \ gforth right-bracket-bracket-l |
\G Shortcut for @code{]] literal}. |
\G Shortcut for @code{]] literal}. |