suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed unnecessary hash-ref passing in implementation of hash-update

Browse Source 
svn: r14421
This commit is contained in:
Eli Barzilay 2009-04-05 00:24:47 +00:00
parent dbc196c246
commit cb2c85956b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scheme/private/more-scheme.ss
View File

@ -362,7 +362,7 @@
(define-values (hash-update hash-update!)
(let* ([not-there (gensym)]
[up (lambda (who mut? ref set ht key xform default)
[up (lambda (who mut? set ht key xform default)
(unless (and (hash? ht)
(or (not mut?)
(not (immutable? ht))))
@ -370,20 +370,20 @@
(unless (and (procedure? xform)
(procedure-arity-includes? xform 1))
(raise-type-error who "procedure (arity 1)" xform))
(let ([v (ref ht key default)])
(let ([v (hash-ref ht key default)])
(if (eq? v not-there)
(raise-mismatch-error who "no value found for key: " key)
(set ht key (xform v)))))])
(let ([hash-update
(case-lambda
[(ht key xform default)
(up 'hash-update #f hash-ref hash-set ht key xform default)]
(up 'hash-update #f hash-set ht key xform default)]
[(ht key xform)
(hash-update ht key xform not-there)])]
[hash-update!
(case-lambda
[(ht key xform default)
(up 'hash-update! #t hash-ref hash-set! ht key xform default)]
(up 'hash-update! #t hash-set! ht key xform default)]
[(ht key xform)
(hash-update! ht key xform not-there)])])
(values hash-update hash-update!))))