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

weak hash table for cstructs needs ephemerons

Browse Source 
svn: r8353

original commit: 74062d996f96be38a2a36b202d6bbd6bc835edcb
This commit is contained in:
Matthew Flatt 2008-01-16 23:19:07 +00:00
parent ac830fc73e
commit 15b2bb3c4a
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mzlib/foreign.ss
View File

@ -1477,10 +1477,15 @@
(define cstruct-info (define cstruct-info
(let ([table (make-hash-table 'weak)]) (let ([table (make-hash-table 'weak)])
(lambda (cstruct msg/fail-thunk . args) (lambda (cstruct msg/fail-thunk . args)
(cond [(eq? 'set! msg/fail-thunk) (hash-table-put! table cstruct args)] (cond [(eq? 'set! msg/fail-thunk)
(hash-table-put! table cstruct (make-ephemeron cstruct args))]
[(and cstruct ; might get a #f if there were no slots [(and cstruct ; might get a #f if there were no slots
(hash-table-get table cstruct (lambda () #f))) (hash-table-get table cstruct (lambda () #f)))
=> (lambda (xs) (apply values xs))] => (lambda (xs)
(let ([v (ephemeron-value xs)])
(if v
(apply values v)
(msg/fail-thunk))))]
[else (msg/fail-thunk)])))) [else (msg/fail-thunk)]))))
;; ---------------------------------------------------------------------------- ;; ----------------------------------------------------------------------------