yet another typo

svn: r10831
This commit is contained in:
Eli Barzilay 2008-07-18 07:08:55 +00:00
parent d961143791
commit 57a3449003

View File

@ -737,7 +737,7 @@ instead of
@schemeblock[
(require (filtered-in
(lambda (name)
(and (regexp-match? #rx"[a-z-]+" name)
(and (regexp-match? #rx"^[a-z-]+$" name)
(regexp-replace
#rx"-" (string-titlecase name) "")))
scheme/base))]
@ -767,7 +767,7 @@ instead of
@schemeblock[
(provide (filtered-out
(lambda (name)
(and (regexp-match? #rx"[a-z-]+" name)
(and (regexp-match? #rx"^[a-z-]+$" name)
(regexp-replace
#rx"-" (string-titlecase name) "")))
(all-defined-out)))]