alist dict predicate check only first element; plist and alist size remove unique key check

1 files changed, 1 insertions, 11 deletions

diff --git a/plist-impl.scm b/plist-impl.scm
index f7f0571..ec0a9e7 100644
--- a/plist-impl.scm
+++ b/plist-impl.scm
@@ -75,17 +75,7 @@
       (else (handle-failure))))
 
   (define (plist-size  plist)
-    (define keys
-      (let loop ((pl plist)
-                 (keys '()))
-        (if (null? pl)
-            keys
-            (loop (cddr pl)
-                  (cons (car pl) keys)))))
-    (define (fold-proc el set)
-      (lset-adjoin equal? set el))
-    (define key-set (fold fold-proc '() keys))
-    (length key-set))
+    (length plist))
 
   (define (plist-foreach  proc plist)
     (let loop ((pl plist))