diff options
| author | Andy Wingo <wingo@pobox.com> | 2010-04-23 16:08:01 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2010-04-24 17:42:00 +0200 |
| commit | 9b023f3c63f51ded3216de11c7f6126f02bacd8f (patch) | |
| tree | 12f1387cd6b47fee7e6dde40eea80612cc4d8364 | |
| parent | 28b8c785e7fbdc53045b32a896f4a730b29e050b (diff) | |
| download | guile-9b023f3c63f51ded3216de11c7f6126f02bacd8f.tar.gz | |
use nested-ref-module in (system xref)
* module/system/xref.scm (program-callee-rev-vars): Use
nested-ref-module instead of nested-ref.
| -rw-r--r-- | module/system/xref.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/system/xref.scm b/module/system/xref.scm index 94ecb5bbf..acf5ed2f5 100644 --- a/module/system/xref.scm +++ b/module/system/xref.scm @@ -1,4 +1,4 @@ -;;;; Copyright (C) 2009 Free Software Foundation, Inc. +;;;; Copyright (C) 2009, 2010 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 @@ -62,8 +62,8 @@ (lp (1+ i) (if v (cons-uniq v out) out)))) ((,mod ,sym ,public?) ;; hm, hacky. - (let* ((m (nested-ref the-root-module - (append '(%app modules) mod))) + (let* ((m (nested-ref-module (resolve-module '() #f) + mod)) (v (and m (module-variable (if public? |