Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +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)
(= (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)