From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 30 Nov 2010 19:16:08 +0000 (+0000)
Subject: Fix silly thinko in definition of STRIP-SUBJECT-RE.
X-Git-Tag: 20101212-Gtk~10
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e40d6e7b4cb632dc4ef3b1fa30f3ecfb2be0b9c2;p=mit-scheme.git

Fix silly thinko in definition of STRIP-SUBJECT-RE.

Also omit needless unsafe fixnum specialization.
---

diff --git a/src/imail/imail-core.scm b/src/imail/imail-core.scm
index d78e59836..0f76cf7d7 100644
--- a/src/imail/imail-core.scm
+++ b/src/imail/imail-core.scm
@@ -647,10 +647,10 @@ USA.
 (define (strip-subject-re subject)
   (let ((end (string-length subject)))
     (let loop ((start 0))
-      (if (and (fix:<= 3 (fix:- end start))
-	       (substring-prefix-ci? "Re:" 0 3 subject (fix:+ start 3) end))
+      (if (and (<= 3 (- end start))
+	       (substring-prefix-ci? "Re:" 0 3 subject start end))
 	  (loop
-	   (substring-find-next-char-in-set subject (fix:+ start 3) end
+	   (substring-find-next-char-in-set subject (+ start 3) end
 					    char-set:subject-content))
 	  (string-tail subject start)))))