yet another typo
svn: r10831
This commit is contained in:
parent
d961143791
commit
57a3449003
|
@ -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)))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user