aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/guile/skribilo/location.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/guile/skribilo/location.scm b/src/guile/skribilo/location.scm
index 048082a..2f9e627 100644
--- a/src/guile/skribilo/location.scm
+++ b/src/guile/skribilo/location.scm
@@ -96,8 +96,10 @@
(stack (make-stack #t)))
(and stack
(< depth (stack-length stack))
- (let ((frame (stack-ref stack depth)))
- (source-properties->location (frame-source frame))))))
+ (let* ((frame (stack-ref stack depth))
+ (source (frame-source frame))
+ (props (and=> source source-properties)))
+ (and=> props source-properties->location)))))
(define (source-properties->location loc)
"Return a location object based on the info in LOC, an alist as returned