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

This commit is contained in:
Jay McCarthy 2016-02-22 09:31:58 -05:00
parent c0bb539af7
commit 619ef41f7d

View File

@ -66,7 +66,7 @@
(if (null? to-show) (if (null? to-show)
(printf " [none]\n") (printf " [none]\n")
(table-display (table-display
long? (if full-checksum +inf.0 long?)
(list* 'right 'right 'middle (list* 'right 'right 'middle
(if dir? '(left) '())) (if dir? '(left) '()))
(list* (list*