From e2d23381378557ea309b4fc08154c0be9b513270 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Fri, 27 Jul 2012 09:52:47 -0400
Subject: [PATCH] Sensible default for requested-count

---
 dump-bytes.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dump-bytes.rkt b/dump-bytes.rkt
index 85b8398..750abc6 100644
--- a/dump-bytes.rkt
+++ b/dump-bytes.rkt
@@ -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)