diff options
| -rw-r--r-- | ChangeLog | 18 | ||||
| -rw-r--r-- | src/guile/skribilo/verify.scm | 19 |
2 files changed, 27 insertions, 10 deletions
@@ -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" |