summaryrefslogtreecommitdiff
path: root/module/system/xref.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-10-17 23:14:26 +0200
committerAndy Wingo <wingo@pobox.com>2013-10-17 23:20:32 +0200
commit342370bd56469925f7a5dbd608bb469d3c0ef2e4 (patch)
tree29bc9343037a8f861d0918177c2b2da4dd6ed845 /module/system/xref.scm
parent1d94a35d69994bdbfd5dcb2c5f2af951152735a5 (diff)
downloadguile-342370bd56469925f7a5dbd608bb469d3c0ef2e4.tar.gz
minimal RTL program support in (system xref)
* module/system/xref.scm (procedure-sources*): Work with RTL programs.
Diffstat (limited to 'module/system/xref.scm')
-rw-r--r--module/system/xref.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/module/system/xref.scm b/module/system/xref.scm
index 922d17fa9..b6211d84c 100644
--- a/module/system/xref.scm
+++ b/module/system/xref.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
+;;;; Copyright (C) 2009, 2010, 2013 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -205,7 +205,8 @@ pair of the form (module-name . variable-name), "
;; ((ip file line . col) ...)
(define (procedure-sources proc)
(cond
- ((program? proc) (program-sources proc))
+ ((or (rtl-program? proc) (program? proc))
+ (program-sources proc))
(else '())))
;; file -> line -> (proc ...)