Changeset 39171 in project for release/5/box/trunk

Timestamp:

11/08/20 17:13:38 (4 months ago)

Author:

Kon Lovett

Message:

remove srfi-111 module

Location:

release/5/box/trunk

Files:

• box.egg (modified) (1 diff)
• box.scm (modified) (1 diff)
• srfi-111.scm (deleted)
• tests/srfi-111-test.scm (added)

release/5/box/trunk/box.egg

@@ -18 +18 @@
   (extension box
     (types-file)
-    (component-dependencies box-core srfi-111)
-    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings"))
-  (extension srfi-111
-    (types-file)
     (component-dependencies box-core)
     (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings")) ) )

release/5/box/trunk/box.scm

@@ -2 +2 @@
 ;;;; Kon Lovett, Apr '20
 
-(module box ()
+(module box
 
-(import scheme)
-(import (chicken module))
+(;export
+  box box? unbox set-box!
+  immutable-box)
+
+(import scheme
+  (only (chicken platform) register-feature!)
+  (chicken module))
 
 (import box-core)
 (reexport box-core)
-(import srfi-111)
-(reexport srfi-111)
+
+(define box           make-box-mutable)
+(define immutable-box make-box-immutable)
+(define unbox         box-ref)
+(define set-box!      box-set!)
+
+(register-feature! 'srfi-111)
 
 ) ;module box