wingo pushed a commit to branch wip-port-refactor
in repository guile.
commit bed7bdc19cb15d04e7200a3b0226ba2450f3db50
Author: Andy Wingo <[email protected]>
Date: Thu May 5 23:03:04 2016 +0200
Fix use of port-encoding
* module/ice-9/ports.scm (clear-stream-start-for-bom-read): Fix to use
%port-encoding, which works in symbols.
---
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 7dc13d7..27bcdd8 100644
--- a/module/ice-9/ports.scm
+++ b/module/ice-9/ports.scm
@@ -227,7 +227,7 @@ interpret its input and output."
(lp (1+ i)))))))))
(when (and (port-clear-stream-start-for-bom-read port)
(eq? io-mode 'text))
- (case (port-encoding port)
+ (case (%port-encoding port)
((UTF-8)
(maybe-consume-bom utf8-bom))
((UTF-16)
