Fix two bugs in LIST-PARSER.

diff --git a/v7/src/imail/parser.scm b/v7/src/imail/parser.scm
index 55d47f8a07ee86b4ddaf84d26b93a847840c481a..b6254bf084ee5128e4be15fc3550598f236c4b9b 100644 (file)
--- 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)