srfi 111 boxes

Author: Amirouche

%3a111.sls

@@ -0,0 +1 @@
+(library (srfi :111) (export box box? unbox set-box!) (import (srfi :111 boxes)))

%3a111/boxes.sls

@@ -0,0 +1,3 @@
+(library (srfi :111 boxes)
+  (export box box? unbox set-box!)
+  (import (only (chezscheme) box box? unbox set-box!)))

tests/boxes.sps

@@ -0,0 +1,18 @@
+;; Copyright © 2020 Amirouche Boubekki
+;; SPDX-License-Identifier: MIT
+#!r6rs
+
+;; Tests for SRFI 111
+
+(import
+  (rnrs)
+  (srfi :111 boxes)
+  (srfi :64 testing))
+
+(test-begin "boxes")
+(test-equal #t (box? (box 42)))
+(test-equal 42 (unbox (box 42)))
+(test-equal 42 (let ((b (box 0)))
+                 (set-box! b 42)
+                 (unbox b)))
+(test-end "boxes")

tests/test_all.sh

@@ -43,6 +43,7 @@ records.sps
 regexp.sps
 tables-test.sps
 vectors.sps
+boxes.sps
 '
 
 fails='