From: Jason Wilson <edu/mit/csail/zurich/jawilson>
Date: Sat, 14 Aug 1993 02:47:21 +0000 (+0000)
Subject: Made groups start out writable? again.
X-Git-Tag: 20090517-FFI~8066
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9d396f538909e9b5b40b9de68e8ea1af9b9216e8;p=mit-scheme.git

Made groups start out writable? again.
---

diff --git a/v7/src/edwin/struct.scm b/v7/src/edwin/struct.scm
index df2b99170..b31e3dd49 100644
--- a/v7/src/edwin/struct.scm
+++ b/v7/src/edwin/struct.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: struct.scm,v 1.88 1993/08/13 23:40:14 cph Exp $
+;;;	$Id: struct.scm,v 1.89 1993/08/14 02:47:21 jawilson Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -163,7 +163,7 @@
     (let ((end (make-permanent-mark group 0 true)))
       (vector-set! group group-index:end-mark end)
       (vector-set! group group-index:display-end end))
-    (vector-set! group group-index:writable? false)
+    (vector-set! group group-index:writable? #t)
     (vector-set! group group-index:start-changes-index false)
     (vector-set! group group-index:end-changes-index false)
     (vector-set! group group-index:modified-tick 0)