From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Jun 1997 20:56:18 +0000 (+0000)
Subject: Fix bug introduced by last change.
X-Git-Tag: 20090517-FFI~5090
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d5339c99ec97566150b654b14df99f746ed59f89;p=mit-scheme.git

Fix bug introduced by last change.
---

diff --git a/v7/src/sos/method.scm b/v7/src/sos/method.scm
index b3b5c7309..f0c27217a 100644
--- a/v7/src/sos/method.scm
+++ b/v7/src/sos/method.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: method.scm,v 1.9 1997/06/25 06:18:30 cph Exp $
+;;; $Id: method.scm,v 1.10 1997/06/27 20:56:18 cph Exp $
 ;;;
 ;;; Copyright (c) 1995-97 Massachusetts Institute of Technology
 ;;;
@@ -473,10 +473,10 @@
   (let ((get-specializers (%record-accessor-generator 'SPECIALIZERS))
 	(get-procedure (%record-accessor-generator 'PROCEDURE)))
     (list (list method-specializers
-		(list <method> <chained-method> <computed-method>)
+		(list <concrete-method> <chained-method> <computed-method>)
 		get-specializers)
 	  (list method-procedure
-		(list <method> <chained-method> <computed-method>)
+		(list <concrete-method> <chained-method> <computed-method>)
 		get-procedure)
 	  (list computed-emp-key
 		(list <computed-emp>)