summaryrefslogtreecommitdiff
path: root/src/guile/diff.scm
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile/diff.scm')
-rw-r--r--src/guile/diff.scm3
1 files changed, 2 insertions, 1 deletions
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.