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

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

srfi-111 bindings procedure

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