From 0164317066f9a91a16c6bb3017ea2cf8c7f46996 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 9 Dec 2005 20:43:16 +0000 Subject: [PATCH] fixed gui for multiple values svn: r1572 --- collects/mztake/debug-tool.ss | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/collects/mztake/debug-tool.ss b/collects/mztake/debug-tool.ss index f46ce61466..d0b2ad726d 100644 --- a/collects/mztake/debug-tool.ss +++ b/collects/mztake/debug-tool.ss @@ -521,10 +521,11 @@ (case-lambda [(top-mark ccm val) (let* ([debug-marks (continuation-mark-set->list ccm debug-key)]) - (send parent suspend oeh (cons top-mark debug-marks) (list 'exit-break val)))] + (car (send parent suspend oeh (cons top-mark debug-marks) (list 'exit-break val))))] [(top-mark ccm . vals) (let* ([debug-marks (continuation-mark-set->list ccm debug-key)]) - (send parent suspend oeh (cons top-mark debug-marks) (cons 'exit-break vals)))]))) + (apply values + (send parent suspend oeh (cons top-mark debug-marks) (cons 'exit-break vals))))]))) (current-exception-handler (lambda (exn) (if (and (exn:break? exn) (send parent suspend-on-break?)) @@ -572,11 +573,11 @@ (set! break-status stat)) (define control-panel #f) (define/public (resume) - (let ([v (if (cons? break-status) - (apply values (rest break-status)) - #f)]) + (let ([v break-status]) (resume-gui) - (channel-put resume-ch v))) + (channel-put resume-ch (if (pair? v) + (cdr v) + #f)))) (define/public (set-mouse-over-msg msg) (when (not (string=? msg (send mouse-over-message get-label))) (send mouse-over-message set-label msg))) @@ -670,7 +671,9 @@ (thunk) (loop))))) (semaphore-post suspend-sema)))) - #f))) + (if (pair? status) + (cdr status) + #f)))) (define (my-execute debug?) (set! want-debug? debug?)