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

2 files changed, 27 insertions, 10 deletions

diff --git a/ChangeLog b/ChangeLog
index 2ccc9a8..cd79228 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,24 @@
 # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
 #
 
+2007-06-07 14:34:59 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-108
+
+    Summary:
+      Fixed location reporting for `verify' warnings.
+    Revision:
+      skribilo--devo--1.2--patch-108
+
+    * src/guile/skribilo/verify.scm: Concatenated `use-modules' to
+      `define-module'.
+      (verify<markup>): Use `skribe-warning/ast' instead of `skribe-warning'.
+
+    modified files:
+     ChangeLog src/guile/skribilo/verify.scm
+
+    new patches:
+     lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-67
+
+
 2007-06-07 14:33:54 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-107
 
     Summary:
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"