aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Court`es2007-06-07 14:34:59 +0000
committerLudovic Court`es2007-06-07 14:34:59 +0000
commit9704d8c6a98aeb2d553438b546956eb0bb1696b2 (patch)
tree3390cde0674490264a9e2852bcccb3db5fc59f24 /src
parent26b90ad21f27c3905b2a3ce2469be3f583f2f133 (diff)
parentbd550e03bf7e424fdffa794e7facadc8989ea6cf (diff)
downloadskribilo-9704d8c6a98aeb2d553438b546956eb0bb1696b2.tar.gz
skribilo-9704d8c6a98aeb2d553438b546956eb0bb1696b2.tar.lz
skribilo-9704d8c6a98aeb2d553438b546956eb0bb1696b2.zip
Fixed location reporting for `verify' warnings.
* src/guile/skribilo/verify.scm: Concatenated `use-modules' to `define-module'. (verify<markup>): Use `skribe-warning/ast' instead of `skribe-warning'. git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-108
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/verify.scm19
1 files changed, 9 insertions, 10 deletions
diff --git a/src/guile/skribilo/verify.scm b/src/guile/skribilo/verify.scm
index 3d37817..2dc1333 100644
--- a/src/guile/skribilo/verify.scm
+++ b/src/guile/skribilo/verify.scm
@@ -1,7 +1,7 @@
;;; verify.scm -- Skribe AST verification.
;;;
;;; Copyright 2003-2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
-;;; Copyright 2005 Ludovic Courtès <ludovic.courtes@laas.fr>
+;;; Copyright 2005, 2007 Ludovic Courtès <ludovic.courtes@laas.fr>
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
@@ -20,16 +20,15 @@
;;; USA.
(define-module (skribilo verify)
- :autoload (skribilo engine) (engine-ident processor-get-engine)
- :autoload (skribilo writer) (writer? writer-options lookup-markup-writer)
- :autoload (skribilo lib) (skribe-warning/ast skribe-warning
- skribe-error)
+ :autoload (skribilo engine) (engine-ident processor-get-engine)
+ :autoload (skribilo writer) (writer? writer-options lookup-markup-writer)
+ :autoload (skribilo lib) (skribe-warning/ast skribe-error)
+ :use-module (skribilo debug)
+ :use-module (skribilo ast)
+ :use-module (skribilo utils syntax)
+ :use-module (oop goops)
:export (verify))
-(use-modules (skribilo debug)
- (skribilo ast)
- (skribilo utils syntax)
- (oop goops))
(fluid-set! current-reader %skribilo-module-reader)
@@ -134,7 +133,7 @@
(let ((validate (slot-ref w 'validate)))
(when (procedure? validate)
(unless (validate node e)
- (skribe-warning
+ (skribe-warning/ast
1
node
(format #f "node `~a' forbidden here by ~a engine"