summaryrefslogtreecommitdiff
path: root/src/geiser
diff options
context:
space:
mode:
Diffstat (limited to 'src/geiser')
-rw-r--r--src/geiser/geiser.ss9
1 files changed, 6 insertions, 3 deletions
diff --git a/src/geiser/geiser.ss b/src/geiser/geiser.ss
index f040413..0644b4d 100644
--- a/src/geiser/geiser.ss
+++ b/src/geiser/geiser.ss
@@ -39,7 +39,7 @@
(define (code-location obj)
(let* ((i (inspect/object obj))
- (c (and i (i 'code))))
+ (c (and i (not (eq? 'simple (i 'type))) (i 'code))))
(if c
(let ((name `("name" . ,(or (c 'name) (write-to-string obj)))))
(call-with-values (lambda () (c 'source-path))
@@ -53,8 +53,11 @@
(define (condition-location c)
(let ((finder (make-object-finder procedure? c (collect-maximum-generation))))
- (let loop ((obj (finder)))
- (if obj (or (code-location (car obj)) (loop (finder))) '()))))
+ (let loop ((obj (finder)) (res '()))
+ (if obj
+ (let ((loc (code-location (car obj))))
+ (loop (finder) (if loc (cons loc res) res)))
+ res))))
(define (call-with-result thunk)
(let ((output-string (open-output-string)))