mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

use nested-ref-module in (system xref)

Browse source 
* module/system/xref.scm (program-callee-rev-vars): Use
  nested-ref-module instead of nested-ref.
This commit is contained in:
Andy Wingo 2010-04-23 16:08:01 +02:00
parent 28b8c785e7
commit 9b023f3c63
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/system/xref.scm
View file

@ -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?