Sensible default for requested-count
This commit is contained in:
parent
3a2ea7b026
commit
e2d2338137
|
@ -15,7 +15,7 @@
|
||||||
|
|
||||||
;; Bytes Exact -> Void
|
;; Bytes Exact -> Void
|
||||||
;; Prints a pretty hex/ASCII dump of bs on (current-output-port).
|
;; 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 count (min requested-count (bytes-length bs)))
|
||||||
(define clipped (subbytes bs 0 count))
|
(define clipped (subbytes bs 0 count))
|
||||||
(define (dump-hex i)
|
(define (dump-hex i)
|
||||||
|
|
Loading…
Reference in New Issue