Return to quotations.fs CVS log

Up to [gforth] / gforth

Added quotations

\ anonymous definitions in a definition

:noname  false :noname ;
:noname  locals-wordlist last @ lastcfa @
    postpone SCOPE postpone AHEAD  true  :noname ;
interpret/compile: [:

: ;] ( compile-time: orig colon-sys -- ; run-time: -- xt )
    POSTPONE ; >r IF
	]  postpone THEN  r> postpone ALiteral  postpone ENDSCOPE
	lastcfa ! last ! to locals-wordlist
    ELSE  r>  THEN ( xt ) ; immediate

\\\
: if-else ( ... f xt1 xt2 -- ... )
\ Postscript-style if-else
    rot IF
       drop
    ELSE
       nip
    THEN
    execute ;

: test ( f -- )
    [: ." true" ;]
    [: ." false" ;]
    if-else ;
   
1 test cr \ writes "true"
0 test cr \ writes "false"