suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

doc repairs

Browse Source 
svn: r12216

original commit: 0b79aaa1aeec28d2b1716028fb7ba51ef5b1d8a0
This commit is contained in:
Matthew Flatt 2008-11-02 12:28:59 +00:00
parent 5a7821c879
commit fa3a1de098
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/basic.ss
View File

@ -119,7 +119,9 @@
(list? v)) (list? v))
(let ([b (hash-ref interned v #f)]) (let ([b (hash-ref interned v #f)])
(if b (if b
(weak-box-value b) (or (weak-box-value b)
;; just in case the value is GCed before we extract it:
(intern-taglet v))
(begin (begin
(hash-set! interned v (make-weak-box v)) (hash-set! interned v (make-weak-box v))
v))) v)))