Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove test file

Browse source
This commit is contained in:
Justin Ethier 2019-05-24 13:34:53 -04:00
parent 2663945d4c
commit b29bafde8f
1 changed files with 0 additions and 61 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

61
test-immut.scm
View file

@ -1,61 +0,0 @@
;; A temporary test file
(import (scheme base) (scheme write))
;; TODO: make #t respect object type
(define-c immutable?
"(void *data, int argc, closure _, object k, object obj)"
"object result = boolean_t;
if (is_object_type(obj) &&
(type_of(obj) == pair_tag ||
type_of(obj) == vector_tag ||
type_of(obj) == bytevector_tag ||
type_of(obj) == string_tag
) &&
!immutable(obj) ) {
result = boolean_f;
}
return_closcall1(data, k, result); ")
(define-c _Cyc-set-immutable!
"(void *data, int argc, closure _, object k, object obj, object val)"
"object result = boolean_f;
if (is_object_type(obj)) {
immutable(obj) = (val == boolean_f) ? 0 : 1;
result = boolean_t;
}
return_closcall1(data, k, result); ")
(define (Cyc-set-immutable! obj val)
(_Cyc-set-immutable! obj val)
(cond
((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))))
(define lis '(1 2 3))
(define vec '#((1) 2 3))
(write
(list
(immutable? lis)
(immutable? (car lis))
(Cyc-set-immutable! lis #f)
(immutable? lis)
(immutable? (car lis))
(set-car! lis 'a)
lis
))
(newline)
(write
(list
(immutable? vec)
(immutable? (vector-ref vec 0))
(Cyc-set-immutable! vec #f)
(immutable? vec)
(immutable? (vector-ref vec 0))
(vector-set! vec 0 'x)
vec
)
)