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

Add scheme code to set immutable field

Browse source
This commit is contained in:
Justin Ethier 2019-05-20 21:44:26 -04:00
parent 3d0f21a876
commit bbd24a8972
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test-immut.scm
View file

@ -25,13 +25,19 @@
} }
return_closcall1(data, k, result); ") return_closcall1(data, k, result); ")
(define (Cyc-set-immutable! obj val)
(_Cyc-set-immutable! obj val)
(cond
((pair? obj) (map (lambda (o) (_Cyc-set-immutable! o val)) obj))
((vector? obj) (vector-map (lambda (o) (_Cyc-set-immutable! o val)) obj))))
(define lis '(1 2 3)) (define lis '(1 2 3))
(write (write
(list (list
(immutable? lis) (immutable? lis)
(immutable? (car lis)) (immutable? (car lis))
(_Cyc-set-immutable! lis #f) (Cyc-set-immutable! lis #f)
(immutable? lis) (immutable? lis)
(immutable? (car lis)) (immutable? (car lis))
(set-car! lis 'a) (set-car! lis 'a)