Fix bug: internal definitions weren't being handled by DEFINE-METHOD.

diff --git a/v7/src/sos/macros.scm b/v7/src/sos/macros.scm
index ffa2e2345185f53c61ede68fcc0cc02ef2cd5c75..6a6bbc55fb33141422e8b10909e73c4888c65a3a 100644 (file)
--- a/v7/src/sos/macros.scm
+++ b/v7/src/sos/macros.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: macros.scm,v 1.7 1998/03/19 20:29:52 cph Exp $
+;;; $Id: macros.scm,v 1.8 1998/04/28 03:57:20 cph Exp $
 ;;;
 ;;; Copyright (c) 1993-98 Massachusetts Institute of Technology
 ;;;
@@ -416,7 +416,10 @@
           (DISJUNCTION
            ,(lambda (name expr)
               (do-exprs name (disjunction-components expr list))))
-          (DEFINITION ,(lambda (name expr) name (illegal expr)))
+          (DEFINITION
+           ,(lambda (name expr)
+              (and (not (eq? name (definition-name expr)))
+                   (do-expr name (definition-value expr)))))
           (IN-PACKAGE ,(lambda (name expr) name (illegal expr)))
           (LAMBDA
            ,(lambda (name expr)