summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2012-05-22 23:52:51 +0200
committerLudovic Courtès2012-05-22 23:52:51 +0200
commit0fd1c4ab82330a1978bf02f6332382138427a3bd (patch)
tree81e525182b34fa6ea2de1ff62660d944f74db2af /src
parent5854807d1269ded493a512725c5c66cad93d2305 (diff)
downloadskribilo-0fd1c4ab82330a1978bf02f6332382138427a3bd.tar.gz
skribilo-0fd1c4ab82330a1978bf02f6332382138427a3bd.tar.lz
skribilo-0fd1c4ab82330a1978bf02f6332382138427a3bd.zip
Fix `invocation-location' for Guile 1.8.
* src/guile/skribilo/location.scm (invocation-location): Call `source-properties' on the result of `frame-source'.
Diffstat (limited to 'src')
-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