TR7

1 files changed, 59 insertions, 0 deletions

diff --git a/compat/micro-srfi-225/srfi/225.sld b/compat/micro-srfi-225/srfi/225.sld
new file mode 100644
index 0000000..9e97d76
--- /dev/null
+++ b/compat/micro-srfi-225/srfi/225.sld
@@ -0,0 +1,59 @@
+(define-library (srfi 225)
+  (import (scheme base) (scheme case-lambda) (scheme write))
+  (export
+   eqv-alist-dto
+   ;; predicates
+   dictionary?
+   dict-empty?
+   dict-contains?
+   dict=?
+   dict-pure?
+   ;; lookup
+   dict-ref
+   dict-ref/default
+   dict-comparator
+   ;; mutation
+   dict-set!
+   dict-adjoin!
+   dict-delete!
+   dict-delete-all!
+   dict-replace!
+   dict-intern!
+   dict-update!
+   dict-update/default!
+   dict-pop!
+   dict-map
+   dict-filter
+   dict-remove
+   dict-find-update!
+   ;; whole dictionary
+   dict-size
+   dict-count
+   dict-any
+   dict-every
+   dict-keys
+   dict-values
+   dict-entries
+   dict-fold
+   dict-map->list
+   dict->alist
+   ;; iteration
+   dict-for-each
+   dict->generator
+   dict-set!-accumulator
+   dict-adjoin!-accumulator
+   ;; dictionary type descriptors
+   dto?
+   dto-ref
+   ;; exceptions
+   dictionary-error
+   dictionary-error?
+   dictionary-message
+   dictionary-irritants)
+  (begin
+    (define-record-type <derror>
+      (dictionary-error message irritants)
+      dictionary-error?
+      (message dictionary-message)
+      (irritants dictionary-irritants)))
+  (include "225.scm"))
\ No newline at end of file