[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Andy Wingo
Subject: [Guile-commits] 05/06: %peek-char port argument optional.
Date: Tue, 10 May 2016 13:41:18 +0000 (UTC)

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."
            (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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]