aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2010-03-08 00:30:07 +0100
committerLudovic Courtès2010-03-08 00:30:07 +0100
commit90ba3a599f98703631e23732d43465b5c46ffa6a (patch)
tree9a5d9a7c3ddf68b4fc7d0ac948fbc9a436961aba /src
parentc98a0c6da29a028282f0decac3056f9df0e40c1c (diff)
downloadskribilo-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')
-rw-r--r--src/guile/skribilo/location.scm6
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