From 0fd1c4ab82330a1978bf02f6332382138427a3bd Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Tue, 22 May 2012 23:52:51 +0200
Subject: Fix `invocation-location' for Guile 1.8.

* src/guile/skribilo/location.scm (invocation-location): Call
  `source-properties' on the result of `frame-source'.
---
 src/guile/skribilo/location.scm | 6 ++++--
 1 file 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
-- 
cgit v1.2.3