From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 1 Jun 2000 20:06:38 +0000 (+0000)
Subject: Fix two bugs in LIST-PARSER.
X-Git-Tag: 20090517-FFI~3643
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7bde81554fe869b6ca3fb5fd2a3dbc6c04c1f8f7;p=mit-scheme.git

Fix two bugs in LIST-PARSER.
---

diff --git a/v7/src/imail/parser.scm b/v7/src/imail/parser.scm
index 55d47f8a0..b6254bf08 100644
--- a/v7/src/imail/parser.scm
+++ b/v7/src/imail/parser.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: parser.scm,v 1.3 2000/04/23 03:04:02 cph Exp $
+;;; $Id: parser.scm,v 1.4 2000/06/01 20:06:38 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -97,12 +97,12 @@
 	       (elements (list (substring string start index))))
 	    (let ((index (match-delimiter string start end)))
 	      (if index
-		  (let ((index* (match-element string start end)))
+		  (let ((index* (match-element string index end)))
 		    (if index*
 			(loop index*
 			      (cons (substring string index index*) elements))
-			(list start (cons keyword elements))))
-		  (list start (cons keyword elements)))))
+			(list start (cons keyword (reverse! elements)))))
+		  (list start (cons keyword (reverse! elements))))))
 	  (list start (list keyword))))))
 
 (define (optional-parser . parsers)