From ab21af544a6bc97a7cef4605365bd8799424200b Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 10 May 2016 15:38:11 +0200
Subject: [PATCH] %peek-char port argument optional.

* module/ice-9/ports.scm (%peek-char): Port argument is optional.
---
 module/ice-9/ports.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/ice-9/ports.scm b/module/ice-9/ports.scm
index 742e7025e..cdfd011ed 100644
--- a/module/ice-9/ports.scm
+++ b/module/ice-9/ports.scm
@@ -451,7 +451,7 @@ interpret its input and output."
           (else
            (peek-char-and-len/iconv port first-byte))))))
 
-(define (%peek-char port)
+(define* (%peek-char #:optional (port (current-input-port)))
   (define (slow-path)
     (call-with-values (lambda () (peek-char-and-len port))
       (lambda (char len)