From 6a6d0ef7d1b6e570f7b59c73318e74d30fc8ee90 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Tue, 6 Aug 2013 14:58:16 +0200
Subject: "range" now excludes second argument

---
 examples/working/abstract-right.ey | 2 +-
 examples/working/fold.ey           | 2 +-
 examples/working/qsort.ey          | 2 +-
 examples/working/reverse.ey        | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'examples')

diff --git a/examples/working/abstract-right.ey b/examples/working/abstract-right.ey
index fb18a03..0fc62b7 100644
--- a/examples/working/abstract-right.ey
+++ b/examples/working/abstract-right.ey
@@ -1 +1 @@
-0 3 range 5 add dump "test" dump
+0 4 range 5 add dump "test" dump
diff --git a/examples/working/fold.ey b/examples/working/fold.ey
index d3b20ce..fb32ef5 100644
--- a/examples/working/fold.ey
+++ b/examples/working/fold.ey
@@ -3,7 +3,7 @@
 { ==f ==a a len ==l
   l {
     0 a *
-    1 l 1 sub range { a * f * } each
+    1 l range { a * f * } each
     } { "fold on empty array" die }
   ? *
 } /fold deff
diff --git a/examples/working/qsort.ey b/examples/working/qsort.ey
index 79e9f4c..3507444 100644
--- a/examples/working/qsort.ey
+++ b/examples/working/qsort.ey
@@ -6,7 +6,7 @@
   end a * /pivot defv
   start /store defv
 
-  start end 1 sub range { /i defv
+  start end range { /i defv
     i a * pivot lt {
       store _ i a swap
               1 add =store
diff --git a/examples/working/reverse.ey b/examples/working/reverse.ey
index 32d0b24..a958493 100644
--- a/examples/working/reverse.ey
+++ b/examples/working/reverse.ey
@@ -1,5 +1,5 @@
 { _ /a deff len /l defv
-  [ 1 l range { l -01 sub a } each ]
+  [ 1 l 1 add range { l -01 sub a } each ]
 } /reverse deff
 
 [ 3 2 1 ] reverse dump
-- 
cgit v1.2.3