mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

Fix use of port-encoding

Browse source 
* module/ice-9/ports.scm (clear-stream-start-for-bom-read): Fix to use
  %port-encoding, which works in symbols.
This commit is contained in:
Andy Wingo 2016-05-05 23:03:04 +02:00
parent 0b4b4db9fa
commit bed7bdc19c
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

@ -227,7 +227,7 @@ interpret its input and output."
(lp (1+ i))))))))) (lp (1+ i)))))))))
(when (and (port-clear-stream-start-for-bom-read port) (when (and (port-clear-stream-start-for-bom-read port)
(eq? io-mode 'text)) (eq? io-mode 'text))
(case (port-encoding port) (case (%port-encoding port)
((UTF-8) ((UTF-8)
(maybe-consume-bom utf8-bom)) (maybe-consume-bom utf8-bom))
((UTF-16) ((UTF-16)