aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/minus-loop.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/lib/minus-loop.frt')
-rw-r--r--amforth-6.5/common/lib/minus-loop.frt15
1 files changed, 0 insertions, 15 deletions
diff --git a/amforth-6.5/common/lib/minus-loop.frt b/amforth-6.5/common/lib/minus-loop.frt
deleted file mode 100644
index 89e2dbd..0000000
--- a/amforth-6.5/common/lib/minus-loop.frt
+++ /dev/null
@@ -1,15 +0,0 @@
-\ 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
-\ \ No newline at end of file