diff options
| -rw-r--r-- | tekuti/index.scm | 15 | ||||
| -rw-r--r-- | tekuti/post.scm | 7 |
2 files changed, 10 insertions, 12 deletions
diff --git a/tekuti/index.scm b/tekuti/index.scm index 7524712..ab28d9c 100644 --- a/tekuti/index.scm +++ b/tekuti/index.scm @@ -1,5 +1,5 @@ ;; Tekuti -;; Copyright (C) 2008 Andy Wingo <wingo at pobox dot com> +;; Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com> ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as @@ -37,13 +37,12 @@ (tags ,reindex-tags ,write-hash ,read-hash))) (define (reindex oldindex master) - (with-backtrace - (with-time-debugging - (fold (lambda (pair index) - (acons (car pair) ((cadr pair) oldindex index) - index)) - (acons 'master master '()) - index-specs)))) + (with-time-debugging + (fold (lambda (pair index) + (acons (car pair) ((cadr pair) oldindex index) + index)) + (acons 'master master '()) + index-specs))) (define (assoc-list-ref alist key n default) (let ((l (assoc key alist))) diff --git a/tekuti/post.scm b/tekuti/post.scm index e042a9d..75218ed 100644 --- a/tekuti/post.scm +++ b/tekuti/post.scm @@ -109,10 +109,9 @@ (raw (post-raw-content post))) (catch #t (lambda () - (with-backtrace - (case format - ((wordpress) (wordpress->sxml raw)) - (else `(pre ,raw))))) + (case format + ((wordpress) (wordpress->sxml raw)) + (else `(pre ,raw)))) (lambda args `(pre "Formatting error\n" ,raw))))) |