work

1 files changed, 18 insertions, 19 deletions

diff --git a/srfi/indexes.scm b/srfi/indexes.scm
index 958f5a0..f71a76e 100644
--- a/srfi/indexes.scm
+++ b/srfi/indexes.scm
@@ -5,42 +5,29 @@
   (define v proc-id)
   (set! proc-id (+ 1 proc-id))
   v)
-(define make-dictionary-id (proc-id-inc))
-(define dict-unfold-id (proc-id-inc))
 (define dictionary?-id (proc-id-inc))
 (define dict-empty?-id (proc-id-inc))
 (define dict-contains?-id (proc-id-inc))
+(define dict=?-id (proc-id-inc))
+(define dict-mutable?-id (proc-id-inc))
 (define dict-ref-id (proc-id-inc))
 (define dict-ref/default-id (proc-id-inc))
+(define dict-min-key-id (proc-id-inc))
+(define dict-max-key-id (proc-id-inc))
 (define dict-set-id (proc-id-inc))
-(define dict-set!-id (proc-id-inc))
 (define dict-adjoin-id (proc-id-inc))
-(define dict-adjoin!-id (proc-id-inc))
 (define dict-delete-id (proc-id-inc))
-(define dict-delete!-id (proc-id-inc))
 (define dict-delete-all-id (proc-id-inc))
-(define dict-delete-all!-id (proc-id-inc))
 (define dict-replace-id (proc-id-inc))
-(define dict-replace!-id (proc-id-inc))
 (define dict-intern-id (proc-id-inc))
-(define dict-intern!-id (proc-id-inc))
 (define dict-update-id (proc-id-inc))
-(define dict-update!-id (proc-id-inc))
 (define dict-update/default-id (proc-id-inc))
-(define dict-update/default!-id (proc-id-inc))
 (define dict-pop-id (proc-id-inc))
-(define dict-pop!-id (proc-id-inc))
 (define dict-map-id (proc-id-inc))
-(define dict-map!-id (proc-id-inc))
 (define dict-filter-id (proc-id-inc))
-(define dict-filter!-id (proc-id-inc))
 (define dict-remove-id (proc-id-inc))
-(define dict-remove!-id (proc-id-inc))
-(define dict-search-id (proc-id-inc))
-(define dict-search!-id (proc-id-inc))
-(define dict-copy-id (proc-id-inc))
+(define dict-alter-id (proc-id-inc))
 (define dict-size-id (proc-id-inc))
-(define dict-for-each-id (proc-id-inc))
 (define dict-count-id (proc-id-inc))
 (define dict-any-id (proc-id-inc))
 (define dict-every-id (proc-id-inc))
@@ -51,4 +38,16 @@
 (define dict-map->list-id (proc-id-inc))
 (define dict->alist-id (proc-id-inc))
 (define dict-comparator-id (proc-id-inc))
-(define dict-procedures-count (proc-id-inc))
+(define dict-for-each-id (proc-id-inc))
+(define dict-for-each<-id (proc-id-inc))
+(define dict-for-each<=-id (proc-id-inc))
+(define dict-for-each>-id (proc-id-inc))
+(define dict-for-each>=-id (proc-id-inc))
+(define dict-for-each-in-open-interval-id (proc-id-inc))
+(define dict-for-each-in-closed-interval-id (proc-id-inc))
+(define dict-for-each-in-open-closed-interval-id (proc-id-inc))
+(define dict-for-each-in-closed-open-interval-id (proc-id-inc))
+(define make-dict-generator-id (proc-id-inc))
+(define dict-set-accumulator-id (proc-id-inc))
+(define dict-adjoin-accumulator-id (proc-id-inc))
+(define dict-procedures-count (proc-id-inc)) ;; only used for tracking backing vector size