next stage of Dictionaries; added right-fold to FoldOrder

1 files changed, 6 insertions, 8 deletions

diff --git a/indexes.scm b/indexes.scm
index 8969b33..4476943 100644
--- a/indexes.scm
+++ b/indexes.scm
@@ -1,4 +1,6 @@
 ;;;; Indexes into dictionary vectors
+;;; Add more at the end for new dictionary methods
+;;; Add an entry to model-vec as well
 
 (define d? 0)
 (define dempty? 1)
@@ -28,17 +30,13 @@
 (define dentries 25)
 (define dfold 26)
 (define dmap->list 27)
-(define ddict->alist 28)
+(define d->alist 28)
 
-;;; To call an internal procedure from another internal procedure:
-;;; (dcall dref/default vec dict key default)
 
-(define-syntax dcall
-  (syntax-rules ()
-    ((dcall dindex vec arg ...)
-     ((vector-ref vec dindex) arg ...))))
+;;; Sample of a call to an internal procedure from another internal procedure:
+;;; (dcall dref/default vec dict key default)
 
-;;; maps names to indexes
+;;; Maps names to indexes
 
 (define dname-map 
   `(dictionary? . ,d?)