|
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.
