summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2012-05-05 23:00:12 +0200
committerLudovic Courtès2012-05-05 23:00:12 +0200
commitec8750c653b2edc2f5246d1cf8e495281faf4ed4 (patch)
tree17cb97a1df3cf58aa2855780a2fda7c238426aba /src/guile
parent6cfc926fd1f003942d3c80880d1cd243f0c710ec (diff)
downloadskribilo-ec8750c653b2edc2f5246d1cf8e495281faf4ed4.tar.gz
skribilo-ec8750c653b2edc2f5246d1cf8e495281faf4ed4.tar.lz
skribilo-ec8750c653b2edc2f5246d1cf8e495281faf4ed4.zip
Fix Guile 1.8 version of `default-to-utf-8'.
* src/guile/skribilo/utils/syntax.scm (default-to-utf-8)[!guile-2]: Expand the body. Reported by Roger Mason <rmason@esd.mun.ca>.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/utils/syntax.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/guile/skribilo/utils/syntax.scm b/src/guile/skribilo/utils/syntax.scm
index e210d4e..2fdd7dc 100644
--- a/src/guile/skribilo/utils/syntax.scm
+++ b/src/guile/skribilo/utils/syntax.scm
@@ -113,11 +113,13 @@
((_ body ...)
(with-fluids ((%default-port-encoding "UTF-8"))
body ...)))))
+
(else
(define-macro (set-correct-file-encoding! . p)
#f)
- (define-macro (default-to-utf-8 . rest) #t)))
+ (define-macro (default-to-utf-8 . body)
+ `(begin ,@body))))
;;;