Skip to content

Commit

Permalink
Catch code comments up with await-glib-getline's conversion strategy
Browse files Browse the repository at this point in the history
  • Loading branch information
ChrisVine committed Jun 19, 2016
1 parent 059f597 commit 9150d9a
Showing 1 changed file with 6 additions and 4 deletions.
10 changes: 6 additions & 4 deletions a-sync/gnome-glib.scm
Original file line number Diff line number Diff line change
Expand Up @@ -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"))
Expand Down

0 comments on commit 9150d9a

Please sign in to comment.