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))) |