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 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/guile/skribilo/lib.scm') 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)))) -- cgit v1.2.3