version 1.2, 1996/11/11 17:00:07
|
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 |
|
|