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

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: 
        !             7: : ENDIF ( compilation orig -- ; run-time -- ) \ gforth
        !             8:     POSTPONE then ; immediate
        !             9: 
        !            10: : ?DUP-IF ( compilation -- orig ; run-time n -- n| ) \ gforth  question-dupe-if
        !            11:     POSTPONE ?dup POSTPONE if ; immediate
        !            12: 
        !            13: : ?DUP-0=-IF ( compilation -- orig ; run-time n -- n| ) \ gforth       question-dupe-zero-equals-if
        !            14:     POSTPONE ?dup POSTPONE 0= POSTPONE if ; immediate

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