fix bug intorduced by lazy rx
svn: r14443
This commit is contained in:
parent
e6cd817a65
commit
cd0e0c550f
|
@ -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)])
|
||||||
|
|
Loading…
Reference in New Issue
Block a user