From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Apr 2000 03:14:36 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4097
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4967573a21f1efee0df91cc9fd9070a97529c873;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm
index d732dd6a7..b9aacb4ea 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.5 2000/02/03 04:48:54 cph Exp $
+;;; $Id: imail-util.scm,v 1.6 2000/04/06 03:14:36 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -158,7 +158,7 @@
 		       ((not (pair? tokens)) count))))))
 	   (let loop
 	       ((tokens (cdr tokens))
-		(index (copy (car tokens) 0)))
+		(index (string-move! (car tokens) string 0)))
 	     (if (pair? tokens)
 		 (loop (cdr tokens)
 		       (string-move! (car tokens)