Generate predicate for file folders.

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index 9c1fa0cacaf39d147d68e83df445bfc5222e6479..e0b2d29d9d3d299a06552727273e58f313912654 100644 (file)
--- 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 @@
 \f
 ;;;; Folder
 
-(define-class <file-folder> (<folder>)
+(define-class (<file-folder> (predicate)) (<folder>)
   (messages define standard
            accessor %file-folder-messages
            initial-value 'UNKNOWN)