Terminate the iteration in regimes

herbie-fp · Nov 27, 2024 · e210cd9 · e210cd9
1 parent 28884f4
commit e210cd9
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/core/regimes.rkt b/src/core/regimes.rkt
@@ -308,6 +308,9 @@
     (let loop ([i (- number-of-points 1)])
       (define alt-idx (vector-ref result-alt-idxs i))
       (define next (vector-ref result-prev-idxs i))
-      (cons (si alt-idx (+ i 1)) (loop next)))))
+      (cons (si alt-idx (+ i 1))
+            (if (= next number-of-points)
+                '()
+                (loop next))))))
 
 (require (submod "." core))