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/exns
scheme/port
scheme/pretty)
scheme/pretty
scheme/promise)
(provide (all-from-out r6rs/private/io-conds)
file-options
@ -938,7 +939,7 @@
(cond
[(symbol? 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])
([c (in-string s)]
[pos (in-naturals)])