diff options
Diffstat (limited to 'src/guile/diff.scm')
| -rw-r--r-- | src/guile/diff.scm | 3 |
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. |