From: Chris Hanson Date: Mon, 23 Aug 1993 22:28:40 +0000 (+0000) Subject: Add definition for GROUP-MODIFIED? accessor since that is needed to do X-Git-Tag: 20090517-FFI~8003 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7d67a93a7eadce07d29c3873bcc867a901dc8ca9;p=mit-scheme.git Add definition for GROUP-MODIFIED? accessor since that is needed to do auto-save from microcode. --- diff --git a/v7/src/microcode/edwin.h b/v7/src/microcode/edwin.h index 9874e6685..895d41acf 100644 --- a/v7/src/microcode/edwin.h +++ b/v7/src/microcode/edwin.h @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: edwin.h,v 1.6 1993/06/24 07:08:23 gjr Exp $ +$Id: edwin.h,v 1.7 1993/08/23 22:28:40 cph Exp $ -Copyright (c) 1987-91 Massachusetts Institute of Technology +Copyright (c) 1987-93 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -49,6 +49,7 @@ MIT in each case. */ #define GROUP_START_MARK(group) (VECTOR_REF ((group), 6)) #define GROUP_END_MARK(group) (VECTOR_REF ((group), 7)) +#define GROUP_MODIFIED_P(group) (VECTOR_REF ((group), 16)) #define MARK_GROUP(mark) (VECTOR_REF ((mark), 1)) #define MARK_INDEX(mark) (UNSIGNED_FIXNUM_TO_LONG (VECTOR_REF ((mark), 2)))