update benz (dictionary-api)

piclib/picrin/base.scm

@@ -170,10 +170,17 @@
 
   (export make-dictionary
           dictionary?
+          dictionary
           dictionary-ref
           dictionary-set!
           dictionary-delete
-          dictionary-size)
+          dictionary-size
+          dictionary-map
+          dictionary-for-each
+          dictionary->plist
+          plist->dictionary
+          dictionary->alist
+          alist->dictionary)
 
   (export make-record
           record?

piclib/picrin/dictionary.scm

@@ -1,23 +1,6 @@
 (define-library (picrin dictionary)
   (import (picrin base))
 
-  (define (plist->dictionary plist)
-    (let ((dict (make-dictionary)))
-      (do ((kv plist (cddr kv)))
-          ((null? kv)
-           dict)
-        (dictionary-set! dict (car kv) (cadr kv)))))
-
-  (define (alist->dictionary alist)
-    (let ((dict (make-dictionary)))
-      (do ((kv alist (cdr kv)))
-          ((null? kv)
-           dict)
-        (dictionary-set! dict (car kv) (cdr kv)))))
-
-  (define (dictionary . plist)
-    (plist->dictionary plist))
-
   (export dictionary?
           dictionary
           make-dictionary
@@ -25,5 +8,7 @@
           dictionary-set!
           dictionary-delete
           dictionary-size
+          dictionary->plist
           plist->dictionary
+          dictionary->alist
           alist->dictionary))