diff options
| author |  Arvydas Silanskas
| 2020-10-18 15:59:29 +0300 |
|---|---|---|
| committer | Arvydas Silanskas
| 2020-10-18 15:59:29 +0300 |
| commit | 8083cf8a46bd2aa359c0a84597ff6f985a2bba4a (patch) | |
| tree | 4cc36dce2842ade22116d37eff30f4f1afe0c7f4 /plist-impl.scm | |
| parent | alist dict predicate check only first element; plist and alist size remove un... (diff) | |
fix plist size proc; rewrite dict-entries to use fold
Diffstat (limited to 'plist-impl.scm')
| -rw-r--r-- | plist-impl.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plist-impl.scm b/plist-impl.scm index ec0a9e7..4baa337 100644 --- a/plist-impl.scm +++ b/plist-impl.scm @@ -75,7 +75,7 @@ (else (handle-failure)))) (define (plist-size plist) - (length plist)) + (/ (length plist) 2)) (define (plist-foreach proc plist) (let loop ((pl plist)) |