From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 30 May 2000 20:53:19 +0000 (+0000)
Subject: Fix bug: STRING->LINES must not return an empty list.
X-Git-Tag: 20090517-FFI~3658
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8f34a14fa052f7865b23b7937340caf422300fc8;p=mit-scheme.git

Fix bug: STRING->LINES must not return an empty list.
---

diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm
index 55f6bc560..5d8eaace9 100644
--- a/v7/src/imail/imail-util.scm
+++ b/v7/src/imail/imail-util.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-util.scm,v 1.26 2000/05/27 00:10:12 cph Exp $
+;;; $Id: imail-util.scm,v 1.27 2000/05/30 20:53:19 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -165,12 +165,10 @@
 		       (set-cdr! indexes
 				 (list (substring string start* end)))))))
 	    indexes)
-	  (if (fix:< start end)
-	      (list (if (and (fix:= start 0)
-			     (fix:= end (string-length string)))
-			string
-			(substring string start end)))
-	      '())))))
+	  (list (if (and (fix:= start 0)
+			 (fix:= end (string-length string)))
+		    string
+		    (substring string start end)))))))
 
 (define (lines->string lines #!optional line-ending)
   (decorated-string-append "" ""