Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

guard against mutation in make-interval

Browse source 
Closes #971
This commit is contained in:
Alex Shinn 2024-05-27 09:29:37 +09:00
parent 7923b1c46d
commit f9e3ed1639
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/231/base.scm
View file

@ -67,7 +67,7 @@
(translation? hi) (translation? hi)
(= (vector-length lo) (vector-length hi)) (= (vector-length lo) (vector-length hi))
(vector-every <= lo hi))) (vector-every <= lo hi)))
(%%make-interval lo hi)) (%%make-interval (vector-copy lo) (vector-copy hi)))
(define (make-interval x . o) (define (make-interval x . o)
(if (pair? o) (if (pair? o)