source: project/release/5/box/trunk/srfi-111.scm @ 38573

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

;; Issues
;;

(module srfi-111

(;export
  box box? unbox set-box!
  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!))

;;

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

;;

(register-feature! 'srfi-111)

) ;module srfi-111