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

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)))))