Commit c52b874c authored by Anton Ertl's avatar Anton Ertl

deleted (for lack of usage): ]]L ]]2L ]]FL ]]SL postpone-{,2,f,s}literal

parent 891dd2e3
......@@ -206,28 +206,6 @@ AUser CSP
['] postponer-r is parser1 state on ; immediate restrict
[then]
comp' literal drop alias postpone-literal
comp' 2literal drop alias postpone-2literal
comp' fliteral drop alias postpone-fliteral
comp' sliteral drop alias postpone-sliteral
: ]]L ( postponing: x -- ; compiling: -- x ) \ gforth right-bracket-bracket-l
\G Shortcut for @code{]] literal}.
]] postpone-literal ]] [[ ; immediate
: ]]2L ( postponing: x1 x2 -- ; compiling: -- x1 x2 ) \ gforth right-bracket-bracket-two-l
\G Shortcut for @code{]] 2literal}.
]] postpone-2literal ]] [[ ; immediate
: ]]FL ( postponing: r -- ; compiling: -- r ) \ gforth right-bracket-bracket-f-l
\G Shortcut for @code{]] fliteral}.
]] postpone-fliteral ]] [[ ; immediate
: ]]SL ( postponing: addr1 u -- ; compiling: -- addr2 u ) \ gforth right-bracket-bracket-s-l
\G Shortcut for @code{]] sliteral}; if the string already has been
\G allocated permanently, you can use @code{]]2L} instead.
]] postpone-sliteral ]] [[ ; immediate
\ interp
: >interp ( .. rectype -- )
......
......@@ -24,17 +24,17 @@ decimal
{ : word1 macro1 ; -> }
{ 5 word1 -> 25 }
{ : macro2 7 ]]l + [[ ; immediate -> }
{ : macro2 7 ]] literal + [[ ; immediate -> }
{ : word2 macro2 ; -> }
{ 8 word2 -> 15 }
{ : macro3 s" test" ]]2l compare [[ ; immediate -> }
{ : macro3 s" test" ]] 2literal compare [[ ; immediate -> }
{ : word3 macro3 ; -> }
{ s" tess" word3 -> -1 }
{ s" test" word3 -> 0 }
{ s" tesu" word3 -> 1 }
{ : macro4 4e ]]fl f+ [[ ; immediate -> }
{ : macro4 4e ]] fliteral f+ [[ ; immediate -> }
{ : word4 macro4 ; -> }
{ 5e word4 -> 9e }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment