gforth/compat/loops.fs - diff

Return to loops.fs CVS log

Up to [gforth] / gforth / compat

version 1.1, 1996/01/25 16:47:05	version 1.3, 1997/06/06 17:28:13
Line 4	Line 4

\ Hmm, this would be a good application for ]] ... [[	\ Hmm, this would be a good application for ]] ... [[

	\ The program uses the following words
	\ from CORE :
	\ : POSTPONE over min ; immediate 2dup IF swap THEN drop negate +LOOP
	\ ELSE 2drop < 1+ DO u<
	\ from CORE-EXT :
	\ ?DO u>
	\ from BLOCK-EXT :
	\ \
	\ from FILE :
	\ (

: +DO ( compile-time: -- do-sys; run-time: n1 n2 -- )	: +DO ( compile-time: -- do-sys; run-time: n1 n2 -- )
POSTPONE over POSTPONE min POSTPONE ?do ; immediate	POSTPONE over POSTPONE min POSTPONE ?do ; immediate

Line 11	Line 22
2dup u>	2dup u>
IF	IF
swap	swap
ENDIF	THEN
drop ;	drop ;

: U+DO ( compile-time: -- do-sys; run-time: u1 u2 -- )	: U+DO ( compile-time: -- do-sys; run-time: u1 u2 -- )