summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2007-04-03 14:58:13 +0000
committerLudovic Court`es2007-04-03 14:58:13 +0000
commit75d25f7c6edd388124c4ff858869a83ddee2246c (patch)
tree9d060389d608e508d9281f0cdabe4365e49b3364 /src/guile
parentf38830f2c7e4a772df8face3c308ba0cb2a29132 (diff)
parent0caac277ae2f94d43ae68334cfb11031aafb78b6 (diff)
downloadskribilo-75d25f7c6edd388124c4ff858869a83ddee2246c.tar.gz
skribilo-75d25f7c6edd388124c4ff858869a83ddee2246c.tar.lz
skribilo-75d25f7c6edd388124c4ff858869a83ddee2246c.zip
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: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-83
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/lib.scm2
-rw-r--r--src/guile/skribilo/location.scm6
2 files changed, 6 insertions, 2 deletions
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))