aliens/tekuti
1
0
Fork 0
Code Activity

remove a couple uses of with-backtrace

Browse source 
* 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
This commit is contained in:
Andy Wingo 2010-11-13 18:41:23 +01:00
parent 31a2d6ebbc
commit a8c28da20b
2 changed files with 10 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tekuti/index.scm
View file

@ -1,5 +1,5 @@
;; Tekuti ;; 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 ;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as ;; modify it under the terms of the GNU General Public License as
@ -37,13 +37,12 @@
(tags ,reindex-tags ,write-hash ,read-hash))) (tags ,reindex-tags ,write-hash ,read-hash)))
(define (reindex oldindex master) (define (reindex oldindex master)
(with-backtrace
(with-time-debugging (with-time-debugging
(fold (lambda (pair index) (fold (lambda (pair index)
(acons (car pair) ((cadr pair) oldindex index) (acons (car pair) ((cadr pair) oldindex index)
index)) index))
(acons 'master master '()) (acons 'master master '())
index-specs)))) index-specs)))
(define (assoc-list-ref alist key n default) (define (assoc-list-ref alist key n default)
(let ((l (assoc key alist))) (let ((l (assoc key alist)))

3
tekuti/post.scm
View file

@ -109,10 +109,9 @@
(raw (post-raw-content post))) (raw (post-raw-content post)))
(catch #t (catch #t
(lambda () (lambda ()
(with-backtrace
(case format (case format
((wordpress) (wordpress->sxml raw)) ((wordpress) (wordpress->sxml raw))
(else `(pre ,raw))))) (else `(pre ,raw))))
(lambda args (lambda args
`(pre "Formatting error\n" ,raw))))) `(pre "Formatting error\n" ,raw)))))