diff options
| author | Ludovic Court`es | 2007-04-03 14:05:48 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-04-03 14:05:48 +0000 |
| commit | 0caac277ae2f94d43ae68334cfb11031aafb78b6 (patch) | |
| tree | bbaf38334ca0830ad58eea2c846784430344f01c /src/guile/skribilo/lib.scm | |
| parent | a5795533336152ba0e8534ea0fcef220ce04ccf5 (diff) | |
| download | skribilo-0caac277ae2f94d43ae68334cfb11031aafb78b6.tar.gz skribilo-0caac277ae2f94d43ae68334cfb11031aafb78b6.tar.lz skribilo-0caac277ae2f94d43ae68334cfb11031aafb78b6.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: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-42
Diffstat (limited to 'src/guile/skribilo/lib.scm')
| -rw-r--r-- | src/guile/skribilo/lib.scm | 2 |
1 files changed, 1 insertions, 1 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)))) |