diff options
| author | Ludovic Court`es | 2007-06-07 14:34:59 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-06-07 14:34:59 +0000 |
| commit | 9704d8c6a98aeb2d553438b546956eb0bb1696b2 (patch) | |
| tree | 3390cde0674490264a9e2852bcccb3db5fc59f24 /src | |
| parent | 26b90ad21f27c3905b2a3ce2469be3f583f2f133 (diff) | |
| parent | bd550e03bf7e424fdffa794e7facadc8989ea6cf (diff) | |
| download | skribilo-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.scm | 19 |
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" |