From d16aca9679532f2177747a45ff8687be64e85f21 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Wed, 31 May 2006 18:54:08 +0000
Subject: [PATCH] forgot ^...$ wrappers

svn: r3152
---
 collects/mzlib/string.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/string.ss b/collects/mzlib/string.ss
index 35e71e192d..95c5e706b2 100644
--- 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