1 |
;;;; Copyright (C) 1997, 2000, 2001 Free Software Foundation, Inc. |
;;;; Copyright (C) 1997, 2000, 2001, 2003 Free Software Foundation, Inc. |
2 |
;;;; |
;;;; |
3 |
;;;; This program is free software; you can redistribute it and/or modify |
;;;; This program is free software; you can redistribute it and/or modify |
4 |
;;;; it under the terms of the GNU General Public License as published by |
;;;; it under the terms of the GNU General Public License as published by |
276 |
(let* ((name (module-name module)) |
(let* ((name (module-name module)) |
277 |
(obarray (module-obarray module))) |
(obarray (module-obarray module))) |
278 |
;; XXX - should use hash-fold here |
;; XXX - should use hash-fold here |
279 |
(array-for-each |
(hash-for-each |
280 |
(lambda (oblist) |
(lambda (symbol variable) |
281 |
(for-each |
(cond ((regexp-exec match (symbol->string symbol)) |
282 |
(lambda (x) |
(display name) |
283 |
(cond ((regexp-exec match (symbol->string (car x))) |
(display ": ") |
284 |
(display name) |
(display symbol) |
285 |
(display ": ") |
(cond ((variable-bound? variable) |
286 |
(display (car x)) |
(let ((val (variable-ref variable))) |
287 |
(cond ((variable-bound? (cdr x)) |
(cond ((or (procedure? val) value) |
288 |
(let ((val (variable-ref (cdr x)))) |
(display separator) |
289 |
(cond ((or (procedure? val) value) |
(display val))))) |
290 |
(display separator) |
(else |
291 |
(display val))))) |
(display separator) |
292 |
(else |
(display "(unbound)"))) |
293 |
(display separator) |
(if (and shadow |
294 |
(display "(unbound)"))) |
(not (eq? (module-ref module symbol) |
295 |
(if (and shadow |
(module-ref (current-module) symbol)))) |
296 |
(not (eq? (module-ref module |
(display " shadowed")) |
297 |
(car x)) |
(newline)))) |
|
(module-ref (current-module) |
|
|
(car x))))) |
|
|
(display " shadowed")) |
|
|
(newline)))) |
|
|
oblist)) |
|
298 |
obarray))) |
obarray))) |
299 |
modules)))) |
modules)))) |
300 |
|
|