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

Timestamp:

11/08/20 16:30:07 (5 months ago)

Author:

Kon Lovett

Message:

incl bug so no types, just alias, bump ver

File:

• release/5/box/trunk/srfi-111.scm (modified) (1 diff)

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

@@ -11 +11 @@
   immutable-box)
 
-(import scheme)
-(import (chicken base))
-(import (chicken syntax))
-(import (chicken type))
-(import (only (chicken platform) register-feature!))
-(import (only box-core box? make-box-mutable make-box-immutable box-ref box-set!))
+(import scheme
+  (chicken base)
+  (only (chicken platform) register-feature!)
+  (only box-core box? make-box-mutable make-box-immutable box-ref box-set!))
 
 ;;
 
-(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 box           make-box-mutable)
+(define immutable-box make-box-immutable)
+(define unbox         box-ref)
+(define set-box!      box-set!)
 
 ;;