From bdee3509b7df692ffcbf1d9f4d9fe9dec38d39e2 Mon Sep 17 00:00:00 2001 From: John Griffin Date: Wed, 31 Aug 2011 14:24:25 -0500 Subject: [PATCH] adjust debugger to print smaller version of values to improve performance --- collects/gui-debugger/debug-tool.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/gui-debugger/debug-tool.rkt b/collects/gui-debugger/debug-tool.rkt index cc4757977d..b55144723d 100644 --- a/collects/gui-debugger/debug-tool.rkt +++ b/collects/gui-debugger/debug-tool.rkt @@ -132,6 +132,10 @@ (> size (vector-length v))) '... (truncate-value (vector-ref v i) size (sub1 depth)))))] + [(bytes? v) + (if (> (bytes-length v) size) + (subbytes v 0 size) + v)] [else v])) (define filename->defs @@ -1141,7 +1145,7 @@ (for-each (lambda (name/value) (let ([name (format "~a" (syntax-e (first name/value)))] - [value (format " => ~s\n" (second name/value))]) + [value (format " => ~s\n" (truncate-value (second name/value) 100 5))]) (send variables-text insert name) (send variables-text change-style bold-sd (- (send variables-text last-position) (string-length name))