add srfi 111

2014-07-17 16:43:25 +09:00 · 2014-07-17 16:43:25 +09:00 · 690bdcb83d
parent 2758c55e3e
commit 690bdcb83d
2 changed files with 9 additions and 0 deletions
--- a/piclib/CMakeLists.txt
+++ b/piclib/CMakeLists.txt
@ -8,4 +8,5 @@ list(APPEND PICLIB_SCHEME_LIBS
  ${PROJECT_SOURCE_DIR}/piclib/srfi/43.scm
  ${PROJECT_SOURCE_DIR}/piclib/srfi/60.scm
  ${PROJECT_SOURCE_DIR}/piclib/srfi/95.scm
+  ${PROJECT_SOURCE_DIR}/piclib/srfi/111.scm
  )
--- a/piclib/srfi/111.scm
+++ b/piclib/srfi/111.scm
@ -0,0 +1,8 @@
+(define-library (srfi 111)
+  (import (scheme base))
+
+  (define-record-type box-type (box value) box?
+                      (value unbox set-box!))
+
+  (export box box?
+          unbox set-box!))