mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

Use '#:' prefix for keywords instead of ':'. Thanks to Richard Todd!

Browse source
This commit is contained in:
Marius Vollmer 2004-01-12 17:19:21 +00:00
parent 25ffbdacbd
commit ffa04c1b09
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ice-9/mapping.scm
View file

@ -102,8 +102,8 @@
(define (hash-table-mapping . options) (define (hash-table-mapping . options)
(let* ((size (or (and options (number? (car options)) (car options)) (let* ((size (or (and options (number? (car options)) (car options))
71)) 71))
(hash-proc (or (kw-arg-ref options :hash-proc) hash)) (hash-proc (or (kw-arg-ref options #:hash-proc) hash))
(assoc-proc (or (kw-arg-ref options :assoc-proc) (assoc-proc (or (kw-arg-ref options #:assoc-proc)
(cond (cond
((eq? hash-proc hash) assoc) ((eq? hash-proc hash) assoc)
((eq? hash-proc hashv) assv) ((eq? hash-proc hashv) assv)
@ -111,7 +111,7 @@
(else (error 'hash-table-mapping (else (error 'hash-table-mapping
"Hash-procedure specified with no known assoc function." "Hash-procedure specified with no known assoc function."
hash-proc))))) hash-proc)))))
(delete-proc (or (kw-arg-ref options :delete-proc) (delete-proc (or (kw-arg-ref options #:delete-proc)
(cond (cond
((eq? hash-proc hash) delete!) ((eq? hash-proc hash) delete!)
((eq? hash-proc hashv) delv!) ((eq? hash-proc hashv) delv!)
@ -119,7 +119,7 @@
(else (error 'hash-table-mapping (else (error 'hash-table-mapping
"Hash-procedure specified with no known delete function." "Hash-procedure specified with no known delete function."
hash-proc))))) 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 '()))))) (lambda (len) (make-vector len '())))))
(make-hash-table-mapping (table-constructor size) (make-hash-table-mapping (table-constructor size)
hash-proc hash-proc