[Guile-commits] 05/06: %peek-char port argument optional.

[Andy Wingo]

wingo pushed a commit to branch wip-port-refactor
in repository guile.

commit ab21af544a6bc97a7cef4605365bd8799424200b
Author: Andy Wingo <address@hidden>
Date:   Tue May 10 15:38:11 2016 +0200

    %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 742e702..cdfd011 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)