Last change
on this file since 31138 was
31138,
checked in by felix winkelmann, 7 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.