fix bug intorduced by lazy rx

svn: r14443
This commit is contained in:
Matthew Flatt 2009-04-07 16:34:51 +00:00
parent e6cd817a65
commit cd0e0c550f

View File

@ -8,7 +8,8 @@
r6rs/private/readtable r6rs/private/readtable
r6rs/private/exns r6rs/private/exns
scheme/port scheme/port
scheme/pretty) scheme/pretty
scheme/promise)
(provide (all-from-out r6rs/private/io-conds) (provide (all-from-out r6rs/private/io-conds)
file-options file-options
@ -938,7 +939,7 @@
(cond (cond
[(symbol? v) [(symbol? v)
(let ([s (symbol->string v)]) (let ([s (symbol->string v)])
(and (not (regexp-match rx:id s)) (and (not (regexp-match (force rx:id) s))
(for/fold ([len 0]) (for/fold ([len 0])
([c (in-string s)] ([c (in-string s)]
[pos (in-naturals)]) [pos (in-naturals)])