Sensible default for requested-count

This commit is contained in:
Tony Garnock-Jones 2012-07-27 09:52:47 -04:00
parent 3a2ea7b026
commit e2d2338137
1 changed files with 1 additions and 1 deletions

View File

@ -15,7 +15,7 @@
;; Bytes Exact -> Void
;; Prints a pretty hex/ASCII dump of bs on (current-output-port).
(define (dump-bytes! bs requested-count)
(define (dump-bytes! bs [requested-count (bytes-length bs)])
(define count (min requested-count (bytes-length bs)))
(define clipped (subbytes bs 0 count))
(define (dump-hex i)