From bd550e03bf7e424fdffa794e7facadc8989ea6cf Mon Sep 17 00:00:00 2001 From: Ludovic Court`es Date: Thu, 7 Jun 2007 12:44:52 +0000 Subject: Fixed location reporting for `verify' warnings. * src/guile/skribilo/verify.scm: Concatenated `use-modules' to `define-module'. (verify): Use `skribe-warning/ast' instead of `skribe-warning'. git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-67 --- src/guile/skribilo/verify.scm | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) (limited to 'src') 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 -;;; Copyright 2005 Ludovic Courtès +;;; Copyright 2005, 2007 Ludovic Courtès ;;; ;;; ;;; 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" -- cgit v1.2.3