From bed7bdc19cb15d04e7200a3b0226ba2450f3db50 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 5 May 2016 23:03:04 +0200 Subject: [PATCH] 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 7dc13d707..27bcdd855 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)