From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Nov 1999 03:29:06 +0000 (+0000)
Subject: Eliminate reference to GROUP-INDEX:MODIFIED-TICK.
X-Git-Tag: 20090517-FFI~4428
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ce179abeb7c08e7e1cc1b6d81f0952562cf508c7;p=mit-scheme.git

Eliminate reference to GROUP-INDEX:MODIFIED-TICK.
---

diff --git a/v7/src/edwin/txtprp.scm b/v7/src/edwin/txtprp.scm
index 4bf41aee8..7c86813fe 100644
--- a/v7/src/edwin/txtprp.scm
+++ b/v7/src/edwin/txtprp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: txtprp.scm,v 1.17 1999/01/02 06:11:34 cph Exp $
+;;; $Id: txtprp.scm,v 1.18 1999/11/01 03:29:06 cph Exp $
 ;;;
 ;;; Copyright (c) 1993-1999 Massachusetts Institute of Technology
 ;;;
@@ -189,9 +189,7 @@
 	  (set-group-start-changes-index! group start)
 	  (set-group-end-changes-index! group end))))
   (set-group-modified?! group #t)
-  (vector-set! group
-	       group-index:modified-tick
-	       (fix:+ (group-modified-tick group) 1)))
+  (set-group-modified-tick! group (fix:+ (group-modified-tick group) 1)))
 
 (define (validate-region-arguments group start end procedure)
   (validate-group group procedure)