diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2004-01-12 17:19:21 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2004-01-12 17:19:21 +0000 |
| commit | ffa04c1b099ccf686758760227fd3c99fe34fde3 (patch) | |
| tree | c12c14c279d32f1e0bc722a120277511d066c0ce /ice-9/mapping.scm | |
| parent | 25ffbdacbd86b4d51ffc25ad5deae3b113918b56 (diff) | |
| download | guile-ffa04c1b099ccf686758760227fd3c99fe34fde3.tar.gz | |
Use '#:' prefix for keywords instead of ':'. Thanks to Richard Todd!
Diffstat (limited to 'ice-9/mapping.scm')
| -rw-r--r-- | ice-9/mapping.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ice-9/mapping.scm b/ice-9/mapping.scm index 8abb5f46b..4cdcffd55 100644 --- a/ice-9/mapping.scm +++ b/ice-9/mapping.scm @@ -102,8 +102,8 @@ (define (hash-table-mapping . options) (let* ((size (or (and options (number? (car options)) (car options)) 71)) - (hash-proc (or (kw-arg-ref options :hash-proc) hash)) - (assoc-proc (or (kw-arg-ref options :assoc-proc) + (hash-proc (or (kw-arg-ref options #:hash-proc) hash)) + (assoc-proc (or (kw-arg-ref options #:assoc-proc) (cond ((eq? hash-proc hash) assoc) ((eq? hash-proc hashv) assv) @@ -111,7 +111,7 @@ (else (error 'hash-table-mapping "Hash-procedure specified with no known assoc function." hash-proc))))) - (delete-proc (or (kw-arg-ref options :delete-proc) + (delete-proc (or (kw-arg-ref options #:delete-proc) (cond ((eq? hash-proc hash) delete!) ((eq? hash-proc hashv) delv!) @@ -119,7 +119,7 @@ (else (error 'hash-table-mapping "Hash-procedure specified with no known delete function." hash-proc))))) - (table-constructor (or (kw-arg-ref options :table-constructor) + (table-constructor (or (kw-arg-ref options #:table-constructor) (lambda (len) (make-vector len '()))))) (make-hash-table-mapping (table-constructor size) hash-proc |