summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/diff.scm3
-rw-r--r--src/guile/skribilo/source/lisp.scm4
2 files changed, 4 insertions, 3 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.
diff --git a/src/guile/skribilo/source/lisp.scm b/src/guile/skribilo/source/lisp.scm
index 77f1c9b..19ec400 100644
--- a/src/guile/skribilo/source/lisp.scm
+++ b/src/guile/skribilo/source/lisp.scm
@@ -1,7 +1,7 @@
;;; lisp.scm -- Lisp Family Fontification
;;;
+;;; Copyright 2005, 2006, 2007, 2008 Ludovic Courtès <ludo@gnu.org>
;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@essi.fr>
-;;; Copyright 2005, 2006, 2007 Ludovic Courtès <ludovic.courtes@laas.fr>
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
@@ -219,7 +219,7 @@
(and (eq? def fun) exp))
(('define (? symbol? var) . _)
(and (eq? var def) exp))
- (('markup-output (quote mk) . _)
+ (('markup-output mk . _)
(and (eq? mk def) exp))
(else #f)))))