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

fix rendering in debugger when number of return values is not 1

Browse Source 
svn: r12367
This commit is contained in:
Greg Cooper 2008-11-09 17:51:04 +00:00
parent 773aaca3ba
commit 4d38b45205
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/gui-debugger/debug-tool.ss
View File

@ -917,8 +917,13 @@
" => " " => "
(if (= 2 (length status)) (if (= 2 (length status))
(render (cadr status)) (render (cadr status))
(cons 'values (map (lambda (v) (render v)) (string-append
(rest status)))))))] "(values"
(let loop ([vals (rest status)])
(cond
[(cons? vals) (string-append " " (render (first vals))
(loop (rest vals)))]
[else ")"])))))))]
[""])) [""]))
"")) ""))
(cond [(get-current-frame-endpoints) (cond [(get-current-frame-endpoints)