From 0caac277ae2f94d43ae68334cfb11031aafb78b6 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Tue, 3 Apr 2007 14:05:48 +0000
Subject: Fixed computation of `&invocation-location'.

* src/guile/skribilo/location.scm (invocation-location): Make sure we
  always return the exact invocation location, no matter how
  `invocation-location' is implemented.

* src/guile/skribilo/lib.scm (define-markup): Updated DEPTH argument to
  `invocation-location' due to previous change in the implementation of
  `invocation-location'.

git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-42
---
 src/guile/skribilo/lib.scm      | 2 +-
 src/guile/skribilo/location.scm | 6 +++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/guile')

diff --git a/src/guile/skribilo/lib.scm b/src/guile/skribilo/lib.scm
index 5d96a10..a86e756 100644
--- a/src/guile/skribilo/lib.scm
+++ b/src/guile/skribilo/lib.scm
@@ -106,7 +106,7 @@
        ;; Memorize the invocation location.  Note: the invocation depth
        ;; passed to `invocation-location' was determined experimentally and
        ;; may change as Guile changes (XXX).
-       (let ((&invocation-location (invocation-location 6)))
+       (let ((&invocation-location (invocation-location 3)))
          ,@body))))
 
 
diff --git a/src/guile/skribilo/location.scm b/src/guile/skribilo/location.scm
index e4583ff..e6bf54f 100644
--- a/src/guile/skribilo/location.scm
+++ b/src/guile/skribilo/location.scm
@@ -81,7 +81,11 @@
   ;; Return a location object denoting the place of invocation of this
   ;; function's caller.  Debugging must be enable for this to work, via
   ;; `(debug-enable 'debug)', otherwise `#f' is returned.
-  (let ((depth (if (null? depth) 4 (car depth)))
+
+  (define %outer-depth 3) ;; update when moving `make-stack'!
+
+  (let ((depth (+ %outer-depth
+                  (if (null? depth) 0 (car depth))))
         (stack (make-stack #t)))
     (and stack
          (let* ((frame  (stack-ref stack depth))
-- 
cgit v1.2.3