Define GUARANTEE-UNPARSER-METHOD.

diff --git a/v7/src/runtime/boot.scm b/v7/src/runtime/boot.scm
index ad034e48934e050e57d014b8899a98f0136ba5ec..da372f3e3b18195490da2621f27871e44bece6f0 100644 (file)
--- a/v7/src/runtime/boot.scm
+++ b/v7/src/runtime/boot.scm
@@ -1,9 +1,9 @@
 #| -*-Scheme-*-
 
-$Id: boot.scm,v 14.19 2004/11/18 18:15:59 cph Exp $
+$Id: boot.scm,v 14.20 2005/03/19 03:26:02 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1992 Massachusetts Institute of Technology
-Copyright 1993,1996,2001,2004 Massachusetts Institute of Technology
+Copyright 1993,1996,2001,2004,2005 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -68,6 +68,8 @@ USA.
 (define (unparser-method? object)
   (and (procedure? object)
        (procedure-arity-valid? object 2)))
+
+(define-guarantee unparser-method "unparser method")
 \f
 (define-integrable interrupt-bit/stack     #x0001)
 (define-integrable interrupt-bit/global-gc #x0002)