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>