/[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.33 by mdj, Tue Mar 4 11:56:10 2003 UTC revision 1.34 by mdj, Thu Mar 13 10:16:30 2003 UTC
# Line 263  where OPTIONSET is one of debug, read, e Line 263  where OPTIONSET is one of debug, read, e
263    (if (zero? (string-length rgx))    (if (zero? (string-length rgx))
264        "Empty string not allowed"        "Empty string not allowed"
265        (let* ((match (make-regexp rgx))        (let* ((match (make-regexp rgx))
266                 (uses (module-uses (current-module)))
267               (modules (cons (current-module)               (modules (cons (current-module)
268                              (module-uses (current-module))))                              (if (and (not (null? uses))
269                                         (eq? (module-name (car uses))
270                                              'duplicates))
271                                    (cdr uses)
272                                    uses)))
273               (separator #\tab)               (separator #\tab)
274               (shadow (member 'shadow options))               (shadow (member 'shadow options))
275               (value (member 'value options)))               (value (member 'value options)))

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

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