Annotation of gforth/compat/control.fs, revision 1.2

1.1       anton       1: \ control-structure add-ons (ENDIF, ?DUP-IF etc.)
                      2: 
                      3: \ This file is in the public domain. NO WARRANTY.
                      4: 
                      5: \ Hmm, this would be a good application for ]] ... [[
                      6: 
1.2     ! anton       7: \ The program uses the following words
        !             8: \ from CORE :
        !             9: \ : POSTPONE THEN ; immediate ?dup IF 0= 
        !            10: \ from BLOCK-EXT :
        !            11: \ \ 
        !            12: \ from FILE :
        !            13: \ ( 
        !            14: 
1.1       anton      15: : ENDIF ( compilation orig -- ; run-time -- ) \ gforth
                     16:     POSTPONE then ; immediate
                     17: 
                     18: : ?DUP-IF ( compilation -- orig ; run-time n -- n| ) \ gforth  question-dupe-if
                     19:     POSTPONE ?dup POSTPONE if ; immediate
                     20: 
                     21: : ?DUP-0=-IF ( compilation -- orig ; run-time n -- n| ) \ gforth       question-dupe-zero-equals-if
                     22:     POSTPONE ?dup POSTPONE 0= POSTPONE if ; immediate

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>