fix bug intorduced by lazy rx

svn: r14443
2009-04-07 16:34:51 +00:00 · 2009-04-07 16:34:51 +00:00 · cd0e0c550f
commit cd0e0c550f
parent e6cd817a65
1 changed files with 3 additions and 2 deletions
--- a/collects/rnrs/io/ports-6.ss
+++ b/collects/rnrs/io/ports-6.ss
@ -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)])