fix plist size proc; rewrite dict-entries to use fold

1 files changed, 9 insertions, 2 deletions

diff --git a/internals.scm b/internals.scm
index fe8263e..9652aaa 100644
--- a/internals.scm
+++ b/internals.scm
@@ -198,8 +198,15 @@
          dictionary)))
 
 (define (idict-entries vec dictionary)
-  (values (dcall dkeys vec dictionary)
-          (dcall dvalues vec dictionary)))
+  (define pair 
+    (dcall dfold vec
+           (lambda (key value acc)
+             (cons (cons key (car acc))
+                   (cons value (cdr acc))))
+           (cons '() '())
+           dictionary))
+  (values (reverse (car pair)) 
+          (reverse (cdr pair))))
 
 (define (idict-fold vec proc knil dictionary)
   (define acc knil)