diff options
Diffstat (limited to 'src/guile/skribilo.scm')
| -rw-r--r-- | src/guile/skribilo.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm index 7208a00..7d066da 100644 --- a/src/guile/skribilo.scm +++ b/src/guile/skribilo.scm @@ -387,6 +387,11 @@ options." (if input-file (with-input-from-file input-file (lambda () + (cond-expand (guile-2 + ;; Use the encoding specified by the `coding:' + ;; comment. + (let ((p (current-input-port))) + (set-port-encoding! p (file-encoding p))))) (doskribe user-module))) (doskribe user-module)) |