aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2016-10-07 23:25:28 +0200
committerLudovic Courtès2016-10-07 23:25:28 +0200
commitc3d1019b8f2d5af0637ae2f055099e51b9706675 (patch)
tree72b3c31c1e7c1b18a9497d6c591658c9312c3dcd /src/guile
parent9280f19600da7acc0096c7cfe7f63ec16a0a25d5 (diff)
downloadskribilo-c3d1019b8f2d5af0637ae2f055099e51b9706675.tar.gz
skribilo-c3d1019b8f2d5af0637ae2f055099e51b9706675.tar.lz
skribilo-c3d1019b8f2d5af0637ae2f055099e51b9706675.zip
Use 'define-syntax-parameter' for '&invocation-location'.
Guile >= 2.1.4 expects an explicit syntax parameter declaration. * src/guile/skribilo/lib.scm (&invocation-location) [guile-2]: Define as a syntax parameter.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/lib.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/src/guile/skribilo/lib.scm b/src/guile/skribilo/lib.scm
index ab39261..bbd4b54 100644
--- a/src/guile/skribilo/lib.scm
+++ b/src/guile/skribilo/lib.scm
@@ -1,6 +1,6 @@
;;; lib.scm -- Utilities. -*- coding: iso-8859-1 -*-
;;;
-;;; Copyright 2005, 2007, 2009, 2012, 2013 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2005, 2007, 2009, 2012, 2013, 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;
;;;
@@ -31,7 +31,9 @@
type-name
new define-markup define-simple-markup
- define-simple-container define-processor-markup)
+ define-simple-container define-processor-markup
+
+ &invocation-location)
;; Re-exported because used in `define-markup'.
:re-export (invocation-location)
@@ -113,6 +115,9 @@
;; that the macro captures its invocation source location using
;; `current-source-location'.
+ (define-syntax-parameter &invocation-location
+ (identifier-syntax #f))
+
(define-syntax define-markup
(lambda (s)
(syntax-case s ()