From b8d6e0f2a34433f056468fbf58a9fc05e1b52df0 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Mon, 21 Apr 2008 22:33:43 +0200
Subject: Fix tiny errors.

---
 src/guile/diff.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/guile/diff.scm')

diff --git a/src/guile/diff.scm b/src/guile/diff.scm
index 88cdd58..6cf125e 100644
--- a/src/guile/diff.scm
+++ b/src/guile/diff.scm
@@ -282,7 +282,8 @@
 
 (define (check-cost! name est cost)
   (if (not (eqv? est cost))
-      (slib:warn name "cost check failed" est '!= cost)))
+      (format (current-error-port) "~a: cost check failed: ~a != ~a~%"
+              name est cost)))
 
 ;;;; Routines interfacing API layer to algorithms.
 
-- 
cgit v1.2.3