source:
project/release/5/box/trunk/box.scm
@
39171
| Last change on this file since 39171 was 39171, checked in by , 2 months ago | |
|---|---|
| File size: 433 bytes | |
| Line | |
|---|---|
| 1 | ;;;; box.scm -*- Scheme -*- |
| 2 | ;;;; Kon Lovett, Apr '20 |
| 3 | |
| 4 | (module box |
| 5 | |
| 6 | (;export |
| 7 | box box? unbox set-box! |
| 8 | immutable-box) |
| 9 | |
| 10 | (import scheme |
| 11 | (only (chicken platform) register-feature!) |
| 12 | (chicken module)) |
| 13 | |
| 14 | (import box-core) |
| 15 | (reexport box-core) |
| 16 | |
| 17 | (define box make-box-mutable) |
| 18 | (define immutable-box make-box-immutable) |
| 19 | (define unbox box-ref) |
| 20 | (define set-box! box-set!) |
| 21 | |
| 22 | (register-feature! 'srfi-111) |
| 23 | |
| 24 | ) ;module box |
Note: See TracBrowser
for help on using the repository browser.
