internals impl; tests

1 files changed, 29 insertions, 29 deletions

diff --git a/indexes.scm b/indexes.scm
index 4476943..c126c52 100644
--- a/indexes.scm
+++ b/indexes.scm
@@ -39,32 +39,32 @@
 ;;; Maps names to indexes
 
 (define dname-map 
-  `(dictionary? . ,d?)
-   (dict-empty? . ,dempty?)
-   (dict-contains? . ,dcontains?)
-   (dict-ref . ,dref)
-   (dict-ref/default . ,dref/default)
-   (dict-set! . ,dset!)
-   (dict-adjoin! . ,dadjoin!)
-   (dict-delete! . ,ddelete!)
-   (dict-delete-all! . ,ddelete-all!)
-   (dict-replace! . ,dreplace!)
-   (dict-intern! . ,dintern!)
-   (dict-update! . ,dupdate!)
-   (dict-update/default! . ,dupdate/default!)
-   (dict-pop! . ,dpop!)
-   (dict-map! . ,dmap!)
-   (dict-filter! . ,dfilter!)
-   (dict-remove! . ,dremove!)
-   (dict-search! . ,dsearch!)
-   (dict-size . ,dsize)
-   (dict-for-each . ,dfor-each)
-   (dict-count . ,dcount)
-   (dict-any . ,dany)
-   (dict-every . ,devery)
-   (dict-keys . ,dkeys)
-   (dict-values . ,dvalues)
-   (dict-entries . ,dentries)
-   (dict-fold . ,dfold)
-   (dict-map->list . ,dmap->list)
-   (dict->alist . ,d->alist))
+  `((dictionary? . ,d?)
+    (dict-empty? . ,dempty?)
+    (dict-contains? . ,dcontains?)
+    (dict-ref . ,dref)
+    (dict-ref/default . ,dref/default)
+    (dict-set! . ,dset!)
+    (dict-adjoin! . ,dadjoin!)
+    (dict-delete! . ,ddelete!)
+    (dict-delete-all! . ,ddelete-all!)
+    (dict-replace! . ,dreplace!)
+    (dict-intern! . ,dintern!)
+    (dict-update! . ,dupdate!)
+    (dict-update/default! . ,dupdate/default!)
+    (dict-pop! . ,dpop!)
+    (dict-map! . ,dmap!)
+    (dict-filter! . ,dfilter!)
+    (dict-remove! . ,dremove!)
+    (dict-search! . ,dsearch!)
+    (dict-size . ,dsize)
+    (dict-for-each . ,dfor-each)
+    (dict-count . ,dcount)
+    (dict-any . ,dany)
+    (dict-every . ,devery)
+    (dict-keys . ,dkeys)
+    (dict-values . ,dvalues)
+    (dict-entries . ,dentries)
+    (dict-fold . ,dfold)
+    (dict-map->list . ,dmap->list)
+    (dict->alist . ,d->alist)))