From 9150d9aed7f820e44257581edeea1114896b0528 Mon Sep 17 00:00:00 2001 From: Chris Vine Date: Sun, 19 Jun 2016 10:00:38 +0100 Subject: [PATCH] Catch code comments up with await-glib-getline's conversion strategy --- a-sync/gnome-glib.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/a-sync/gnome-glib.scm b/a-sync/gnome-glib.scm index 2baad20..96354a3 100644 --- a/a-sync/gnome-glib.scm +++ b/a-sync/gnome-glib.scm @@ -280,10 +280,12 @@ (set! text-len (1+ text-len))) (define (make-outstring) ;; guile's bytevector->string procedure is non-standard and takes - ;; an encoding string and not a transcoder as its last argument: - ;; we use the port's encoding if it has one (it will if setlocale - ;; has been called), otherwise the default port encoding, or if - ;; none latin-1 (which is encoding neutral in guile-2.0) + ;; an encoding string and not a transcoder as its second argument, + ;; and an optional conversion strategy as its third: we use the + ;; port's encoding if it has one (it will if setlocale has been + ;; called), otherwise the default port encoding, or if none + ;; latin-1 (which is encoding neutral in guile-2.0). We also use + ;; the port's conversion strategy. (let ((encoding (or (port-encoding port) (fluid-ref %default-port-encoding) "ISO-8859-1"))