From 90ba3a599f98703631e23732d43465b5c46ffa6a Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 8 Mar 2010 00:30:07 +0100 Subject: Adapt `(skribilo location)' to Guile 2.x. * src/guile/skribilo/location.scm: Use `(system vm frame)' on Guile 2.x. --- src/guile/skribilo/location.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src') 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 +;;; Copyright 2005, 2007, 2009, 2010 Ludovic Courtès ;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI ;;; ;;; @@ -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 -- cgit v1.2.3