From ec8750c653b2edc2f5246d1cf8e495281faf4ed4 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 5 May 2012 23:00:12 +0200 Subject: 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 . --- src/guile/skribilo/utils/syntax.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)))) ;;; -- cgit v1.2.3