svn: r4945

2006-11-26 07:01:19 +00:00 · 2006-11-26 07:01:19 +00:00 · d5528cdb12
commit d5528cdb12
parent 7d549762b1
1 changed files with 1 additions and 1 deletions
--- 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) #\.))