Changeset 38573 in project for release/5/box/trunk/srfi-111.scm

Timestamp:

04/06/20 02:59:30 (11 months ago)

Author:

Kon Lovett

Message:

srfi-111 bindings procedure

File:

• release/5/box/trunk/srfi-111.scm (modified) (2 diffs)

release/5/box/trunk/srfi-111.scm

@@ -8 +8 @@
 
 (;export
-  box
-  box?
-  unbox
-  set-box!
+  box box? unbox set-box!
   immutable-box)
 
@@ -19 +16 @@
 (import (chicken type))
 (import (only (chicken platform) register-feature!))
-(import box-core)
+(import (only box-core box? make-box-mutable make-box-immutable box-ref box-set!))
 
-;;;
+;;
 
-(define-syntax box
-  (syntax-rules ()
-    ((box ?arg)
-      (make-box-mutable ?arg) ) ) )
+(define (box arg)           (make-box-mutable arg))
+(define (immutable-box arg) (make-box-immutable arg))
+(define (unbox box)         (box-ref box))
+(define (set-box! box val)  (box-set! box val))
 
-(define-syntax immutable-box
-  (syntax-rules ()
-    ((immutable-box ?arg)
-      (make-box-immutable ?arg) ) ) )
-
-(define-syntax unbox
-  (syntax-rules ()
-    ((unbox ?box)
-      (box-ref ?box) ) ) )
-
-(define-syntax set-box!
-  (syntax-rules ()
-    ((set-box! ?box ?val)
-      (box-set! ?box ?val) ) ) )
-
-;;;
+;;
 
 (register-feature! 'srfi-111)