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

fix broken vector->roots

Browse Source
This commit is contained in:
Robby Findler 2012-02-20 10:59:57 -06:00
parent c42675f80c
commit 3f5a45e904
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/plai/gc2/private/gc-core.rkt
View File

@ -174,7 +174,7 @@
(make-root 'vector
(λ ()
(vector-ref v i))
(λ (ne) (vector-set! v ne)))))
(λ (ne) (vector-set! v i ne)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Environments of closures