diff options
| author | Ludovic Courtès | 2016-10-07 23:25:28 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2016-10-07 23:25:28 +0200 |
| commit | c3d1019b8f2d5af0637ae2f055099e51b9706675 (patch) | |
| tree | 72b3c31c1e7c1b18a9497d6c591658c9312c3dcd | |
| parent | 9280f19600da7acc0096c7cfe7f63ec16a0a25d5 (diff) | |
| download | skribilo-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.
| -rw-r--r-- | src/guile/skribilo/lib.scm | 9 |
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 () |