search

ashinn / chibi-scheme

Official chibi-scheme repository
Other
1.2k stars 142 forks source link

SRFI 231: specialized-array-reshape! "fix" #987

Closed gambiteer closed 2 months ago

gambiteer commented 2 months ago

By now I'm just cleaning out noise from my test suite:

git diff
diff --git a/lib/srfi/231/transforms.scm b/lib/srfi/231/transforms.scm
index e81e833d..422c9f66 100644
--- a/lib/srfi/231/transforms.scm
+++ b/lib/srfi/231/transforms.scm
@@ -579,6 +579,7 @@
                (= (interval-volume (array-domain array))
                   (interval-volume new-domain))))
   (let ((copy-on-failure? (and (pair? o) (car o))))
+    (assert (boolean? copy-on-failure?))
     (cond
      ((reshape-without-copy array new-domain))
      (copy-on-failure?

Fixes

(test-error (specialized-array-reshape A-ref (make-interval '#(100)) 'a))