diff options
| -rw-r--r-- | src/guile/skribilo/utils/syntax.scm | 13 |
1 files changed, 8 insertions, 5 deletions
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." |