mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Speed up peek-char

Browse source 
* module/ice-9/ports.scm (peek-char-and-len): Only inline fast path for
  UTF-8.
This commit is contained in:
Andy Wingo 2016-05-05 22:57:33 +02:00
parent 6d15a71e8f
commit 0b4b4db9fa
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -304,7 +304,7 @@ interpret its input and output."
(define-syntax-rule (decoding-error subr port)
(throw 'decoding-error subr "input decoding error" EILSEQ port))
(define-inlinable (peek-char-and-len/utf8 port first-byte)
(define (peek-char-and-len/utf8 port first-byte)
(define (bad-utf8 len)
(if (eq? (port-conversion-strategy port) 'substitute)
(values #\? len)
@ -405,7 +405,9 @@ interpret its input and output."
(let ((first-byte (logand first-byte #xff)))
(case (%port-encoding port)
((UTF-8)
(peek-char-and-len/utf8 port first-byte))
(if (< first-byte #x80)
(values (integer->char first-byte) 1)
(peek-char-and-len/utf8 port first-byte)))
((ISO-8859-1)
(peek-char-and-len/iso-8859-1 port first-byte))
(else