From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 4 Jun 1997 22:24:21 +0000 (+0000)
Subject: Eliminate references to INSTANCE-PREDICATE.
X-Git-Tag: 20090517-FFI~5161
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a941353ea4fd01b3a1157e823f9cfb474114b00e;p=mit-scheme.git

Eliminate references to INSTANCE-PREDICATE.
---

diff --git a/v7/src/sos/method.scm b/v7/src/sos/method.scm
index 9f9e425ae..07af9ef99 100644
--- a/v7/src/sos/method.scm
+++ b/v7/src/sos/method.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: method.scm,v 1.1 1997/06/04 06:08:49 cph Exp $
+;;; $Id: method.scm,v 1.2 1997/06/04 22:24:21 cph Exp $
 ;;;
-;;; Copyright (c) 1995-96 Massachusetts Institute of Technology
+;;; Copyright (c) 1995-97 Massachusetts Institute of Technology
 ;;;
 ;;; This material was developed by the Scheme project at the
 ;;; Massachusetts Institute of Technology, Department of Electrical
@@ -360,8 +360,8 @@
       (%make (guarantee-specializers specializers #t 'MAKE-METHOD)
 	     procedure))))
 
-(define method?
-  (instance-predicate <method>))
+(define (method? object)
+  (instance-of? object <method>))
 
 (define method-specializers
   (make-generic-procedure 1 'METHOD-SPECIALIZERS))
@@ -380,8 +380,8 @@
       (%make (guarantee-specializers specializers #t 'MAKE-CHAINED-METHOD)
 	     procedure))))
 
-(define chained-method?
-  (instance-predicate <chained-method>))
+(define (chained-method? object)
+  (instance-of? object <chained-method>))
 
 
 (define <computed-method>
@@ -394,8 +394,8 @@
       (%make (guarantee-specializers specializers #t 'MAKE-COMPUTED-METHOD)
 	     procedure))))
 
-(define computed-method?
-  (instance-predicate <computed-method>))
+(define (computed-method? object)
+  (instance-of? object <computed-method>))
 
 
 (define <computed-emp>
@@ -409,8 +409,8 @@
 	     (guarantee-specializers specializers #t 'MAKE-COMPUTED-EMP)
 	     procedure))))
 
-(define computed-emp?
-  (instance-predicate <computed-emp>))
+(define (computed-emp? object)
+  (instance-of? object <computed-emp>))
 
 (define computed-emp-key
   (make-generic-procedure 1 'COMPUTED-EMP-KEY))