From a8c28da20b58701083cc788eb714e34e6740ab34 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 13 Nov 2010 18:41:23 +0100 Subject: remove a couple uses of with-backtrace * tekuti/index.scm (reindex): Don't use with-backtrace, that's not how I want to roll, debugging-wise. * tekuti/post.scm (post-sxml-content): Same --- tekuti/index.scm | 15 +++++++-------- 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 +;; Copyright (C) 2008, 2010 Andy Wingo ;; 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))))) -- cgit v1.2.3-54-g00ecf