From 43c4bf7e5bdfff92622bd996f4f357cd5952fd80 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 19 Mar 2005 03:26:02 +0000
Subject: [PATCH] Define GUARANTEE-UNPARSER-METHOD.

---
 v7/src/runtime/boot.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/boot.scm b/v7/src/runtime/boot.scm
index ad034e489..da372f3e3 100644
--- 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")
 
 (define-integrable interrupt-bit/stack     #x0001)
 (define-integrable interrupt-bit/global-gc #x0002)
-- 
2.25.1