Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 03:36:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Bug fix

Browse source
This commit is contained in:
Justin Ethier 2019-05-22 13:23:45 -04:00
parent abe40532c3
commit 8539dd3915
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/util.sld
View file

@ -784,7 +784,9 @@
(define (Cyc-set-immutable! obj val) (define (Cyc-set-immutable! obj val)
(_Cyc-set-immutable! obj val) (_Cyc-set-immutable! obj val)
(cond (cond
((pair? obj) (for-each (lambda (o) (_Cyc-set-immutable! o val)) obj)) ((pair? obj)
(_Cyc-set-immutable! (car obj) val)
(_Cyc-set-immutable! (cdr obj) val))
((vector? obj) (vector-for-each (lambda (o) (_Cyc-set-immutable! o val)) obj)))) ((vector? obj) (vector-for-each (lambda (o) (_Cyc-set-immutable! o val)) obj))))
;; END immutables ;; END immutables

6
test-immut.scm
View file

@ -29,7 +29,9 @@
(define (Cyc-set-immutable! obj val) (define (Cyc-set-immutable! obj val)
(_Cyc-set-immutable! obj val) (_Cyc-set-immutable! obj val)
(cond (cond
((pair? obj) (for-each (lambda (o) (_Cyc-set-immutable! o val)) obj)) ((pair? obj)
(_Cyc-set-immutable! (car obj) val)
(_Cyc-set-immutable! (cdr obj) val))
((vector? obj) (vector-for-each (lambda (o) (_Cyc-set-immutable! o val)) obj)))) ((vector? obj) (vector-for-each (lambda (o) (_Cyc-set-immutable! o val)) obj))))
(define lis '(1 2 3)) (define lis '(1 2 3))
@ -50,7 +52,7 @@
(list (list
(immutable? vec) (immutable? vec)
(immutable? (vector-ref vec 0)) (immutable? (vector-ref vec 0))
;(Cyc-set-immutable! vec #f) (Cyc-set-immutable! vec #f)
(immutable? vec) (immutable? vec)
(immutable? (vector-ref vec 0)) (immutable? (vector-ref vec 0))
(vector-set! vec 0 'x) (vector-set! vec 0 'x)