diff options
| author |  Arthur A. Gleckler
| 2021-07-18 20:22:55 -0700 |
|---|---|---|
| committer | Arthur A. Gleckler
| 2021-07-18 20:23:06 -0700 |
| commit | cffa45160b97e18903a73b02be66ed689105717a (patch) | |
| tree | a90d5432376b9a32d03343c1c85a7457b29de4c3 /plist-impl.scm | |
| parent | Ignore "Dictionaries.log". (diff) | |
Ignore trailing whitespace.
Diffstat (limited to 'plist-impl.scm')
| -rw-r--r-- | plist-impl.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/plist-impl.scm b/plist-impl.scm index 4baa337..262db59 100644 --- a/plist-impl.scm +++ b/plist-impl.scm @@ -1,5 +1,5 @@ (define (register-plist!) - + (define (plist? l) (and (list? l) (not (null? l)) @@ -10,7 +10,7 @@ (cond ((null? pl) plist) ((null? (cdr pl)) (error "Malformed plist" plist)) - (else + (else (let ((key (car pl)) (value (cadr pl)) (rest (cddr pl))) @@ -25,7 +25,7 @@ (cond ((null? pl) (cdr head)) ((null? (cdr pl)) (error "Malformed plist" plist)) - (else + (else (let ((key (car pl)) (value (cadr pl)) (rest (cddr pl))) @@ -48,7 +48,7 @@ ((null? plist) #f) ((equal? key (car plist)) head) (else (find-plist-entry key (cdr plist))))) - + (define (plist-search! plist key failure success) (define plist-head (cons #t plist)) (define (handle-success head) @@ -83,8 +83,8 @@ (begin (proc (car pl) (cadr pl)) (loop (cddr pl)))))) - - (register-dictionary! + + (register-dictionary! 'dictionary? plist? 'dict-map! plist-map! 'dict-filter! plist-filter! |