Use `(skribilo-module-syntax)' instead of `(fluid-set! current-reader ...)'.

* doc/modules/skribilo/documentation/api.scm,
  doc/modules/skribilo/documentation/extension.scm,
  doc/modules/skribilo/documentation/manual.scm,
  src/guile/skribilo/writer.scm: Use `(skribilo-module-syntax)' instead
  of `(fluid-set! current-reader ...)'.

4 files changed, 10 insertions, 11 deletions

diff --git a/doc/modules/skribilo/documentation/api.scm b/doc/modules/skribilo/documentation/api.scm
index 27ea385..ab445a4 100644
--- a/doc/modules/skribilo/documentation/api.scm
+++ b/doc/modules/skribilo/documentation/api.scm
@@ -1,4 +1,5 @@
 ;;; api.scm  --  The style for documenting Scheme APIs.
+;;; -*- coding: iso-8859-1 -*-
 ;;;
 ;;; Copyright 2005, 2006, 2007, 2008, 2009  Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright 2003, 2004  Manuel Serrano
@@ -27,7 +28,7 @@
   :use-module (skribilo output)
   :use-module (skribilo lib) ;; `define-markup'
   :use-module (skribilo utils compat)
-  :use-module (skribilo utils syntax) ;; `%skribilo-module-reader'
+  :use-module (skribilo utils syntax) ;; `skribilo-module-syntax'
 
   :use-module (skribilo package base)
   :use-module (skribilo documentation manual)
@@ -37,7 +38,7 @@
   :use-module (ice-9 match)
   :use-module (ice-9 optargs))
 
-(fluid-set! current-reader %skribilo-module-reader)
+(skribilo-module-syntax)
 
 
 ;*---------------------------------------------------------------------*/
@@ -824,7 +825,3 @@
                                 (map make-row-for-custom
                                      (filter cadr args))))))))))))
 
-
-;;; Local Variables:
-;;; coding: latin-1
-;;; End:
diff --git a/doc/modules/skribilo/documentation/extension.scm b/doc/modules/skribilo/documentation/extension.scm
index 7efee6f..0371b93 100644
--- a/doc/modules/skribilo/documentation/extension.scm
+++ b/doc/modules/skribilo/documentation/extension.scm
@@ -1,7 +1,8 @@
 ;;; extension.scm  --  The Skribilo package for documenting extensions.
+;;; -*- coding: iso-8859-1 -*-
 ;;;
+;;; Copyright 2007, 2009  Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright 2003, 2004  Manuel Serrano
-;;; Copyright 2007  Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
@@ -41,7 +42,7 @@
 
   :use-module (ice-9 optargs))
 
-(fluid-set! current-reader %skribilo-module-reader)
+(skribilo-module-syntax)
 
 
 ;*---------------------------------------------------------------------*/
diff --git a/doc/modules/skribilo/documentation/manual.scm b/doc/modules/skribilo/documentation/manual.scm
index 3ac1386..0163289 100644
--- a/doc/modules/skribilo/documentation/manual.scm
+++ b/doc/modules/skribilo/documentation/manual.scm
@@ -1,6 +1,7 @@
 ;;; manual.scm  --  Skribilo manuals and documentation style.
+;;; -*- coding: iso-8859-1 -*-
 ;;;
-;;; Copyright 2007, 2008  Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2007, 2008, 2009  Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright 2003, 2004  Manuel Serrano
 ;;;
 ;;;
@@ -41,7 +42,7 @@
   :use-module (srfi srfi-13)
   :use-module (srfi srfi-37))
 
-(fluid-set! current-reader %skribilo-module-reader)
+(skribilo-module-syntax)
 
 
 ;*---------------------------------------------------------------------*/
diff --git a/src/guile/skribilo/writer.scm b/src/guile/skribilo/writer.scm
index d105a05..08e72d5 100644
--- a/src/guile/skribilo/writer.scm
+++ b/src/guile/skribilo/writer.scm
@@ -40,7 +40,7 @@
   :use-module (ice-9 optargs))
 
 
-(fluid-set! current-reader %skribilo-module-reader)
+(skribilo-module-syntax)