From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 5 Nov 2005 06:18:31 +0000 (+0000)
Subject: Fix thinko in UNDO-RECORD-INSERTION!.
X-Git-Tag: 20090517-FFI~1194
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3edc798e3adbb45472c14e21f6a99d43626daf40;p=mit-scheme.git

Fix thinko in UNDO-RECORD-INSERTION!.
---

diff --git a/v7/src/edwin/undo.scm b/v7/src/edwin/undo.scm
index 66847bc57..52ba600eb 100644
--- a/v7/src/edwin/undo.scm
+++ b/v7/src/edwin/undo.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: undo.scm,v 1.64 2005/11/05 04:23:00 cph Exp $
+$Id: undo.scm,v 1.65 2005/11/05 06:18:31 cph Exp $
 
 Copyright 1987,1989,1991,1992,1993,2000 Massachusetts Institute of Technology
 Copyright 2005 Massachusetts Institute of Technology
@@ -94,8 +94,8 @@ USA.
 	      (pair? (car (group-undo-data group)))
 	      (fix:fixnum? (caar (group-undo-data group)))
 	      (fix:fixnum? (cdar (group-undo-data group)))
-	      (fix:= (cdr (group-undo-data group)) start))
-	 (set-cdr! (group-undo-data group) end))
+	      (fix:= (cdar (group-undo-data group)) start))
+	 (set-cdr! (car (group-undo-data group)) end))
 	(else
 	 (set-group-undo-data! group
 			       (cons (cons start end)