diff options
| author | Ludovic Courtès | 2012-05-22 23:52:51 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2012-05-22 23:52:51 +0200 |
| commit | 0fd1c4ab82330a1978bf02f6332382138427a3bd (patch) | |
| tree | 81e525182b34fa6ea2de1ff62660d944f74db2af | |
| parent | 5854807d1269ded493a512725c5c66cad93d2305 (diff) | |
| download | skribilo-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'.
| -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 |