Merge remote-tracking branch 'arvyy/master'

1 files changed, 53 insertions, 0 deletions

diff --git a/srfi/indexes.scm b/srfi/indexes.scm
new file mode 100644
index 0000000..f71a76e
--- /dev/null
+++ b/srfi/indexes.scm
@@ -0,0 +1,53 @@
+;; procedure index definitions
+
+(define proc-id 0)
+(define (proc-id-inc)
+  (define v proc-id)
+  (set! proc-id (+ 1 proc-id))
+  v)
+(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-adjoin-id (proc-id-inc))
+(define dict-delete-id (proc-id-inc))
+(define dict-delete-all-id (proc-id-inc))
+(define dict-replace-id (proc-id-inc))
+(define dict-intern-id (proc-id-inc))
+(define dict-update-id (proc-id-inc))
+(define dict-update/default-id (proc-id-inc))
+(define dict-pop-id (proc-id-inc))
+(define dict-map-id (proc-id-inc))
+(define dict-filter-id (proc-id-inc))
+(define dict-remove-id (proc-id-inc))
+(define dict-alter-id (proc-id-inc))
+(define dict-size-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))
+(define dict-keys-id (proc-id-inc))
+(define dict-values-id (proc-id-inc))
+(define dict-entries-id (proc-id-inc))
+(define dict-fold-id (proc-id-inc))
+(define dict-map->list-id (proc-id-inc))
+(define dict->alist-id (proc-id-inc))
+(define dict-comparator-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>=-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