forgot ^...$ wrappers

svn: r3152 original commit: d16aca9679532f2177747a45ff8687be64e85f21
2006-05-31 18:54:08 +00:00 · 2006-05-31 18:54:08 +00:00 · f2cc1bf72d
commit f2cc1bf72d
parent af91af3534
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