diff options
| author | Ludovic Courtès | 2008-01-28 12:58:24 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-01-28 12:58:24 +0100 |
| commit | fdee97318552980faaf321d7cadbcfae9a012b1f (patch) | |
| tree | f247b24a8700288aeaa2fd890c4ef5808c23d3a4 /src | |
| parent | 2aa140cdc7b08509f9fbec9a50c404e10cd9f25a (diff) | |
| download | skribilo-fdee97318552980faaf321d7cadbcfae9a012b1f.tar.gz skribilo-fdee97318552980faaf321d7cadbcfae9a012b1f.tar.lz skribilo-fdee97318552980faaf321d7cadbcfae9a012b1f.zip | |
Fix `output' error reporting.
* src/guile/skribilo/output.scm (handle-output-error): Fix
error-reporting for unresolved nodes when `location?'.
Diffstat (limited to 'src')
| -rw-r--r-- | src/guile/skribilo/output.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/guile/skribilo/output.scm b/src/guile/skribilo/output.scm index a33c040..23fc16a 100644 --- a/src/guile/skribilo/output.scm +++ b/src/guile/skribilo/output.scm @@ -1,7 +1,7 @@ ;;; output.scm -- Skribilo output stage. ;;; +;;; Copyright 2005, 2006, 2008 Ludovic Courtès <ludo@gnu.org> ;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> -;;; Copyright 2005, 2006 Ludovic Courtès <ludovic.courtes@laas.fr> ;;; ;;; ;;; This program is free software; you can redistribute it and/or modify @@ -67,9 +67,9 @@ (format (current-error-port) "unresolved node: ~a~a~%" node (if (location? location) - (string-append " " - (location-file location) ":" - (location-line location)) + (format #f " ~a:~a" + (location-file location) + (location-line location)) "")))) ((output-writer-error? c) (format (current-error-port) "invalid writer: ~a~%" |