fix range #442

jcubic · Feb 23, 2025 · d17bdc3 · d17bdc3
1 parent 90b9cce
commit d17bdc3
Show file tree

Hide file tree

Showing 5 changed files with 14 additions and 13 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,4 +1,6 @@
 ## 1.0.0-beta.21
+### Breaking
+* `(range n 0 -1)` don't include 0 like in Python [#442](https://github.com/jcubic/lips/issues/442)
 ### Feature
 * allow to use auto-indent with Node >=18.19.0
 * add metadata to the parser [#414](https://github.com/jcubic/lips/issues/414), [#416](https://github.com/jcubic/lips/issues/416)

diff --git a/dist/std.min.scm b/dist/std.min.scm
diff --git a/dist/std.scm b/dist/std.scm
diff --git a/dist/std.xcb b/dist/std.xcb
diff --git a/lib/bootstrap.scm b/lib/bootstrap.scm
@@ -1317,15 +1317,15 @@
    If start is not defined it starts from 0. If start is larger than stop
    the step needs to be negative otherwise it will hang in an infinite loop."
   (let* ((i (if (null? rest) 0 stop))
-         (stop (if (null? rest) stop (car rest)))
          (step (if (or (null? rest) (null? (cdr rest)))
                    1
                    (cadr rest)))
+         (stop (if (null? rest) stop (car rest)))
          (test (cond
                 ((> i stop) (lambda (i)
-                              (and (< step 0) (>= i stop))))
-                ((< i stop) (lambda
-                              (i) (and (> step 0) (< i stop))))
+                              (and (< step 0) (> i stop))))
+                ((< i stop) (lambda (i)
+                              (and (> step 0) (< i stop))))
                 (else (lambda () false))))
          (result (vector)))
     (typecheck "range" i "number" 1)