From f9e3ed16393c9522d3235c6dc0136a749aaf6847 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 27 May 2024 09:29:37 +0900 Subject: [PATCH] guard against mutation in make-interval Closes #971 --- lib/srfi/231/base.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/srfi/231/base.scm b/lib/srfi/231/base.scm index cbbaca9d..6f0f3643 100644 --- a/lib/srfi/231/base.scm +++ b/lib/srfi/231/base.scm @@ -67,7 +67,7 @@ (translation? hi) (= (vector-length lo) (vector-length hi)) (vector-every <= lo hi))) - (%%make-interval lo hi)) + (%%make-interval (vector-copy lo) (vector-copy hi))) (define (make-interval x . o) (if (pair? o)