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

Removing error when hovering over non-heap squares. Fixes pr11147

Browse Source
This commit is contained in:
Jay McCarthy 2010-08-30 14:12:36 -06:00
parent 5684ba4a9c
commit ef664d531f
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/plai/private/gc-gui.rkt
View File

@ -318,6 +318,7 @@
(update-arrows '())])) (update-arrows '())]))
(define/private (index->nexts index) (define/private (index->nexts index)
(if (< index (vector-length heap-vec))
(let ([n (vector-ref heap-vec index)]) (let ([n (vector-ref heap-vec index)])
(cond (cond
[(and (exact-integer? n) [(and (exact-integer? n)
@ -327,7 +328,8 @@
[(procedure? n) [(procedure? n)
(map read-root (procedure-roots n))] (map read-root (procedure-roots n))]
[else [else
'()]))) '()]))
'()))
(define/private (find-connections start) (define/private (find-connections start)
(let ([visited (make-hash)] (let ([visited (make-hash)]