Invert vector bound checking tests

gambit · Nov 13, 2023 · 63bcb0a · 63bcb0a
1 parent 2015e0e
commit 63bcb0a
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/gsc/_prims.scm b/gsc/_prims.scm
@@ -4862,16 +4862,16 @@
             (new-conj source env
               fixnum-check
               (new-conj source env
-                (gen-call-prim-notsafe source env
-                  **fx<=-sym
-                  (list lo
-                        (new-ref source env
-                          var)))
                 (gen-call-prim-notsafe source env
                   (if incl? **fx<=-sym **fx<-sym)
                   (list (new-ref source env
                           var)
-                        hi))))))
+                        hi))
+                (gen-call-prim-notsafe source env
+                  **fx<=-sym
+                  (list lo
+                        (new-ref source env
+                          var)))))))
       interval-check))
 
   (define (gen-fixnum-nonneg-check source env var)