mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

%peek-char port argument optional.

Browse source 
* module/ice-9/ports.scm (%peek-char): Port argument is optional.
This commit is contained in:
Andy Wingo 2016-05-10 15:38:11 +02:00
parent 3ccfa213c1
commit ab21af544a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/ports.scm
View file

@ -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)