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>