diff options
| author | Ludovic Courtès | 2010-03-08 00:30:07 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2010-03-08 00:30:07 +0100 |
| commit | 90ba3a599f98703631e23732d43465b5c46ffa6a (patch) | |
| tree | 9a5d9a7c3ddf68b4fc7d0ac948fbc9a436961aba /src/guile | |
| parent | c98a0c6da29a028282f0decac3056f9df0e40c1c (diff) | |
| download | skribilo-90ba3a599f98703631e23732d43465b5c46ffa6a.tar.gz skribilo-90ba3a599f98703631e23732d43465b5c46ffa6a.tar.lz skribilo-90ba3a599f98703631e23732d43465b5c46ffa6a.zip | |
Adapt `(skribilo location)' to Guile 2.x.
* src/guile/skribilo/location.scm: Use `(system vm frame)' on Guile 2.x.
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/location.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/guile/skribilo/location.scm b/src/guile/skribilo/location.scm index d5bde98..56c727d 100644 --- a/src/guile/skribilo/location.scm +++ b/src/guile/skribilo/location.scm @@ -1,7 +1,7 @@ ;;; location.scm -- Skribilo source location. ;;; -*- coding: iso-8859-1 -*- ;;; -;;; Copyright 2005, 2007, 2009 Ludovic Courtès <ludo@gnu.org> +;;; Copyright 2005, 2007, 2009, 2010 Ludovic Courtès <ludo@gnu.org> ;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> ;;; ;;; @@ -79,6 +79,10 @@ ;;; Getting an invocation's location. ;;; +(cond-expand + (guile-2 (use-modules (system vm frame))) + (else #t)) + (define (invocation-location . depth) ;; Return a location object denoting the place of invocation of this ;; function's caller. Debugging must be enable for this to work, via |