diff options
| -rw-r--r-- | src/guile/skribilo/location.scm | 6 |
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 |