diff options
| author | Ludovic Courtès | 2012-05-05 23:00:12 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2012-05-05 23:00:12 +0200 |
| commit | ec8750c653b2edc2f5246d1cf8e495281faf4ed4 (patch) | |
| tree | 17cb97a1df3cf58aa2855780a2fda7c238426aba /src/guile | |
| parent | 6cfc926fd1f003942d3c80880d1cd243f0c710ec (diff) | |
| download | skribilo-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.scm | 4 |
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)))) ;;; |