aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2008-01-28 12:58:24 +0100
committerLudovic Courtès2008-01-28 12:58:24 +0100
commitfdee97318552980faaf321d7cadbcfae9a012b1f (patch)
treef247b24a8700288aeaa2fd890c4ef5808c23d3a4 /src/guile
parent2aa140cdc7b08509f9fbec9a50c404e10cd9f25a (diff)
downloadskribilo-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/guile')
-rw-r--r--src/guile/skribilo/output.scm8
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~%"