forgot ^...$ wrappers

svn: r3152
2006-05-31 18:54:08 +00:00 · 2006-05-31 18:54:08 +00:00 · d16aca9679
commit d16aca9679
parent 8607cacc08
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/string.ss
+++ b/collects/mzlib/string.ss
@ -509,7 +509,7 @@
                             (loop2 (cons c chars) (add1 i)))))))]
                  [else (loop (cons c r) (add1 i))]))
              (let* ([r (reverse! r)]
-                     [r (if hide-dots? (hide-dots r) r)])
+                     [r `((#\^) ,@(if hide-dots? (hide-dots r) r) (#\$))])
                (regexp
                 (list->string
                  (apply append