diff options
| author | Ludovic Court`es | 2007-06-07 12:44:52 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-06-07 12:44:52 +0000 |
| commit | bd550e03bf7e424fdffa794e7facadc8989ea6cf (patch) | |
| tree | e590ff7383e58e71c6ee105448df44ffc0356c0c | |
| parent | 4de56f3575d36dd0a2c439af4fcc697dafa34dcf (diff) | |
| download | skribilo-bd550e03bf7e424fdffa794e7facadc8989ea6cf.tar.gz skribilo-bd550e03bf7e424fdffa794e7facadc8989ea6cf.tar.lz skribilo-bd550e03bf7e424fdffa794e7facadc8989ea6cf.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: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-67
| -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" |