;;;; srfi-111.scm  -*- Scheme -*-
;;;; Kon Lovett, Apr '20

;; Issues
;;

(module srfi-111

(;export
  box
  immutable-box
  set-box!
  unbox)

(import scheme)
(import (chicken base))
(import (chicken syntax))
(import (chicken type))
(import (only (chicken platform) register-feature!))
(import box-core)

;;;

(define-syntax box
  (syntax-rules ()
    ((box ?arg)
      (make-box-mutable ?arg) ) ) )

(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)

) ;module srfi-111