diff options
author | Andy Wingo <wingo@pobox.com> | 2013-10-17 23:14:26 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-10-17 23:20:32 +0200 |
commit | 342370bd56469925f7a5dbd608bb469d3c0ef2e4 (patch) | |
tree | 29bc9343037a8f861d0918177c2b2da4dd6ed845 /module/system/xref.scm | |
parent | 1d94a35d69994bdbfd5dcb2c5f2af951152735a5 (diff) | |
download | guile-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.scm | 5 |
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 ...) |