/[guile]/guile/guile-core/ice-9/session.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/session.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by mdj, Sun Oct 21 09:47:25 2001 UTC revision 1.33 by mdj, Tue Mar 4 11:56:10 2003 UTC
# Line 1  Line 1 
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
# Line 276  where OPTIONSET is one of debug, read, e Line 276  where OPTIONSET is one of debug, read, e
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    

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26