If full-checksum, table can be as long as necessary

2016-02-22 09:31:58 -05:00 · 2016-02-22 09:31:58 -05:00 · 619ef41f7d
commit 619ef41f7d
parent c0bb539af7
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/pkg/private/show.rkt
+++ b/racket/collects/pkg/private/show.rkt
@ -66,7 +66,7 @@
    (if (null? to-show)
        (printf " [none]\n")
        (table-display
-         long?
+         (if full-checksum +inf.0 long?)
         (list* 'right 'right 'middle
                (if dir? '(left) '()))
         (list*