Add `(skribilo-module-syntax)'.

* src/guile/skribilo/utils/syntax.scm (skribilo-module-syntax): New
  macro.

* src/guile/*/*.scm: Use `(skribilo-module-syntax)' instead of
  `(fluid-set! current-reader %skribilo-module-reader)'.  The goal is to
  be more compilation-friendly.

8 files changed, 8 insertions, 8 deletions

diff --git a/src/guile/skribilo/engine/base.scm b/src/guile/skribilo/engine/base.scm
index b4e5fd9..fb9cb33 100644
--- a/src/guile/skribilo/engine/base.scm
+++ b/src/guile/skribilo/engine/base.scm
@@ -35,7 +35,7 @@
 
   :export (base-engine))
 
-(fluid-set! current-reader %skribilo-module-reader)
+(skribilo-module-syntax)
 
 
 ;*---------------------------------------------------------------------*/
diff --git a/src/guile/skribilo/engine/context.scm b/src/guile/skribilo/engine/context.scm
index 110431f..10d5e1e 100644
--- a/src/guile/skribilo/engine/context.scm
+++ b/src/guile/skribilo/engine/context.scm
@@ -39,7 +39,7 @@
   :export (context-engine
            ConTeXt TeX))
 
-(fluid-set! current-reader %skribilo-module-reader)
+(skribilo-module-syntax)
 
 
 
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 9f969c5..4a9f99f 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -48,7 +48,7 @@
            html-width html-class html-markup-class
            html-title-authors))
 
-(fluid-set! current-reader %skribilo-module-reader)
+(skribilo-module-syntax)
 
 
 
diff --git a/src/guile/skribilo/engine/html4.scm b/src/guile/skribilo/engine/html4.scm
index 9141469..61c5d8f 100644
--- a/src/guile/skribilo/engine/html4.scm
+++ b/src/guile/skribilo/engine/html4.scm
@@ -33,7 +33,7 @@
   :use-module (srfi srfi-1)
   :use-module ((srfi srfi-19) :renamer (symbol-prefix-proc 's19:)))
 
-(fluid-set! current-reader %skribilo-module-reader)
+(skribilo-module-syntax)
 
 
 (define (find-children node)
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index a6ac5bd..0a60b17 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -37,7 +37,7 @@
 
   :export (info-engine))
 
-(fluid-set! current-reader %skribilo-module-reader)
+(skribilo-module-syntax)
 
 
 (define info-engine
diff --git a/src/guile/skribilo/engine/latex.scm b/src/guile/skribilo/engine/latex.scm
index bb7e15e..89bf2af 100644
--- a/src/guile/skribilo/engine/latex.scm
+++ b/src/guile/skribilo/engine/latex.scm
@@ -41,7 +41,7 @@
            LaTeX TeX !latex
            skribe-color->latex-rgb))
 
-(fluid-set! current-reader %skribilo-module-reader)
+(skribilo-module-syntax)
 
 
 
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index 7a9e871..e2796ff 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -58,7 +58,7 @@
 ;;;
 ;;;    For more information on Lout, see http://lout.sf.net/ .
 
-(fluid-set! current-reader %skribilo-module-reader)
+(skribilo-module-syntax)
 
 
 
diff --git a/src/guile/skribilo/engine/xml.scm b/src/guile/skribilo/engine/xml.scm
index b99a814..0990d24 100644
--- a/src/guile/skribilo/engine/xml.scm
+++ b/src/guile/skribilo/engine/xml.scm
@@ -29,7 +29,7 @@
   :use-module (srfi srfi-1)
   :export (xml-engine))
 
-(fluid-set! current-reader %skribilo-module-reader)
+(skribilo-module-syntax)