From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 24 Aug 1999 02:59:37 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4461
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5a91b679e390b7ae6eda3eddc75092f4c5833d0c;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/edwin/shell.scm b/v7/src/edwin/shell.scm
index df9a71e99..037fba4aa 100644
--- a/v7/src/edwin/shell.scm
+++ b/v7/src/edwin/shell.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: shell.scm,v 1.20 1999/08/20 20:35:42 cph Exp $
+$Id: shell.scm,v 1.21 1999/08/24 02:59:37 cph Exp $
 
 Copyright (c) 1991-1999 Massachusetts Institute of Technology
 
@@ -157,7 +157,7 @@ Otherwise, one argument `-i' is passed to the shell."
 		   (let ((eoc
 			  (let ((r (match command start)))
 			    (and r
-				 (re-match-end-index r)))))
+				 (re-match-end-index 0 r)))))
 		     (cond ((not eoc) #f)
 			   ((match "\\s *\\(\;\\|$\\)" eoc) "")
 			   ((match "\\s +\\([^ \t\;]+\\)\\s *\\(\;\\|$\\)" eoc)