From e9912b68341e37d8821c55e3089a785a415caac6 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Wed, 25 Apr 2012 15:28:05 +0200
Subject: Have `%skribilo-module-reader' record positions by default on Guile
 2.

* src/guile/skribilo/utils/syntax.scm (%skribilo-module-reader): On
  Guile 2.x, always pass '(reader/record-positions).
---
 src/guile/skribilo/utils/syntax.scm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'src/guile')

diff --git a/src/guile/skribilo/utils/syntax.scm b/src/guile/skribilo/utils/syntax.scm
index 5a747cb..e210d4e 100644
--- a/src/guile/skribilo/utils/syntax.scm
+++ b/src/guile/skribilo/utils/syntax.scm
@@ -55,11 +55,14 @@
 		     (_ "unexpected character in Skribilo module"))
 		    chr)))
 
-         ;; By default, don't record positions: this yields a nice read
-         ;; performance improvement.
-         (if (memq 'debug (debug-options))
-             (list 'reader/record-positions)
-             '())))
+         (cond-expand
+          (guile-2 '(reader/record-positions))
+          (else
+           ;; On Guile 1.8, don't record positions by default: this yields a
+           ;; nice read performance improvement.
+           (if (memq 'positions (debug-options))
+               (list 'reader/record-positions)
+               '())))))
 
 (define-macro (skribilo-module-syntax)
   "Install the syntax reader for Skribilo modules."
-- 
cgit v1.2.3