From d5528cdb12a9a0ffec807f7dd3f659aac176e0de Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 26 Nov 2006 07:01:19 +0000 Subject: [PATCH] svn: r4945 --- collects/help/servlets/private/read-lines.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/help/servlets/private/read-lines.ss b/collects/help/servlets/private/read-lines.ss index 3b4ada8dad..34b2f622d2 100644 --- a/collects/help/servlets/private/read-lines.ss +++ b/collects/help/servlets/private/read-lines.ss @@ -45,7 +45,7 @@ `(a ((href ,(string-append "mailto:" addr))) ,addr)) (define (rtrim s) - (let* ([presult (pregexp-replace* trailing-regexp s "")] + (let* ([presult (regexp-replace* trailing-regexp s "")] [plen (string-length presult)] [qlen (sub1 plen)]) (if (and (> qlen 0) (char=? (string-ref presult qlen) #\.))