From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 May 2000 17:18:19 +0000 (+0000)
Subject: Generate predicate for file folders.
X-Git-Tag: 20090517-FFI~3842
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=af38bf02b7bb80b333ded5193c47011544369f66;p=mit-scheme.git

Generate predicate for file folders.
---

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index 9c1fa0cac..e0b2d29d9 100644
--- a/v7/src/imail/imail-file.scm
+++ b/v7/src/imail/imail-file.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-file.scm,v 1.25 2000/05/17 15:03:15 cph Exp $
+;;; $Id: imail-file.scm,v 1.26 2000/05/17 17:18:19 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -52,7 +52,7 @@
 
 ;;;; Folder
 
-(define-class <file-folder> (<folder>)
+(define-class (<file-folder> (predicate)) (<folder>)
   (messages define standard
 	    accessor %file-folder-messages
 	    initial-value 'UNKNOWN)