source: project/release/5/object-evict/tags/1.2/tests/run.scm @ 35505

Last change on this file since 35505 was 35505, checked in by kooda, 7 months ago

Update CHICKEN 5's object-evict egg

File size: 435 bytes
Line 
1(import object-evict)
2
3
4; object-evict
5; object-evicted?
6; object-size
7; object-release
8
9(define tstvec (vector #f))
10(let ((sz (object-size tstvec)))
11  (assert (and (integer? sz) (positive? sz))) )
12(define ev-tstvec (object-evict tstvec))
13(assert (not (eq? tstvec ev-tstvec)))
14(assert (object-evicted? ev-tstvec))
15(set! ev-tstvec
16  (let ((old ev-tstvec))
17    (object-release old)
18    #f))
19
20; object-evict-to-location
21
22; object-unevict
Note: See TracBrowser for help on using the repository browser.