diff options
| author | Ludovic Courtès | 2008-04-21 22:33:43 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2008-04-21 22:33:43 +0200 |
| commit | b8d6e0f2a34433f056468fbf58a9fc05e1b52df0 (patch) | |
| tree | 6d0e1aabfd7672f1c7d24728d5f103babf3bad14 | |
| parent | 27a6feee320cbee97b0a03ad5b8972ae448190c0 (diff) | |
| download | skribilo-b8d6e0f2a34433f056468fbf58a9fc05e1b52df0.tar.gz skribilo-b8d6e0f2a34433f056468fbf58a9fc05e1b52df0.tar.lz skribilo-b8d6e0f2a34433f056468fbf58a9fc05e1b52df0.zip | |
Fix tiny errors.
| -rw-r--r-- | src/guile/diff.scm | 3 | ||||
| -rw-r--r-- | src/guile/skribilo/source/lisp.scm | 4 |
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))))) |