add some ellipses to the debugger value truncation

2011-08-31 17:35:31 -05:00 · 2011-08-31 17:35:31 -05:00 · fb4ae5d83d
commit fb4ae5d83d
parent bdee3509b7
1 changed files with 1 additions and 1 deletions
--- a/collects/gui-debugger/debug-tool.rkt
+++ b/collects/gui-debugger/debug-tool.rkt
@ -134,7 +134,7 @@
                               (truncate-value (vector-ref v i) size (sub1 depth)))))]
          [(bytes? v)
           (if (> (bytes-length v) size)
-               (subbytes v 0 size)
+               (bytes-append (subbytes v 0 size) #"...")
               v)]
          [else v]))