From 4d38b4520544482a92de78931e0f4634524c9b45 Mon Sep 17 00:00:00 2001 From: Greg Cooper Date: Sun, 9 Nov 2008 17:51:04 +0000 Subject: [PATCH] fix rendering in debugger when number of return values is not 1 svn: r12367 --- collects/gui-debugger/debug-tool.ss | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/collects/gui-debugger/debug-tool.ss b/collects/gui-debugger/debug-tool.ss index c728630945..47a920e6b0 100644 --- a/collects/gui-debugger/debug-tool.ss +++ b/collects/gui-debugger/debug-tool.ss @@ -917,8 +917,13 @@ " => " (if (= 2 (length status)) (render (cadr status)) - (cons 'values (map (lambda (v) (render v)) - (rest status)))))))] + (string-append + "(values" + (let loop ([vals (rest status)]) + (cond + [(cons? vals) (string-append " " (render (first vals)) + (loop (rest vals)))] + [else ")"])))))))] [""])) "")) (cond [(get-current-frame-endpoints)