aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/minus-loop.frt
blob: 89e2dbd853bf908219fd82cf735b8b1f52623477 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
\ just like +loop but counts
\ downward for positive numbers.

: -loop ( runtime: x -- ) 
   postpone negate postpone +loop 
; immediate

\ use case
\  : test 0  ?do i . 1 -loop ;
\  -2 test
\ prints
\ 0 -1 -2 
\ be aware that this is not common sense; gforth prints only 
\ 0 -1
\