Sensible default for requested-count
This commit is contained in:
parent
3a2ea7b026
commit
e2d2338137
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue