source: project/release/5/box/trunk/srfi-111.scm @ 38573

Last change on this file since 38573 was 38573, checked in by Kon Lovett, 10 months ago

srfi-111 bindings procedure

File size: 628 bytes
Line 
1;;;; srfi-111.scm  -*- Scheme -*-
2;;;; Kon Lovett, Apr '20
3
4;; Issues
5;;
6
7(module srfi-111
8
9(;export
10  box box? unbox set-box!
11  immutable-box)
12
13(import scheme)
14(import (chicken base))
15(import (chicken syntax))
16(import (chicken type))
17(import (only (chicken platform) register-feature!))
18(import (only box-core box? make-box-mutable make-box-immutable box-ref box-set!))
19
20;;
21
22(define (box arg)           (make-box-mutable arg))
23(define (immutable-box arg) (make-box-immutable arg))
24(define (unbox box)         (box-ref box))
25(define (set-box! box val)  (box-set! box val))
26
27;;
28
29(register-feature! 'srfi-111)
30
31) ;module srfi-111
Note: See TracBrowser for help on using the repository browser.