source: project/release/4/object-evict/tests/run.scm @ 31138

Last change on this file since 31138 was 31138, checked in by felix winkelmann, 6 years ago

added preliminary eggs for extraction from core libraries

File size: 432 bytes
Line 
1(use 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.