From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Sat, 13 Mar 2010 00:16:24 +0000 (-0800)
Subject: Tidy up.
X-Git-Tag: 20100708-Gtk~104
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8e078f4f1a675eb5c0458a009678f9ee48017c09;p=mit-scheme.git

Tidy up.
---

diff --git a/src/sf/analyze.scm b/src/sf/analyze.scm
index 31c50215f..cae8123b6 100644
--- a/src/sf/analyze.scm
+++ b/src/sf/analyze.scm
@@ -837,13 +837,9 @@ USA.
     (and (constant? right)
 	 (eq? (constant/value left) (constant/value right)))))
 
-(define-method/equal? 'DECLARATION
-  (lambda (left right)
-    #f))
+(define-method/equal? 'DECLARATION false-procedure)
 
-(define-method/equal? 'DELAY
-  (lambda (left right)
-    #f))
+(define-method/equal? 'DELAY false-procedure)
 
 (define-method/equal? 'DISJUNCTION
   (lambda (left right)
@@ -853,17 +849,11 @@ USA.
 	 (expressions/equal? (disjunction/alternative left)
 			     (disjunction/alternative right)))))
 
-(define-method/equal? 'OPEN-BLOCK
-  (lambda (left right)
-    #f))
+(define-method/equal? 'OPEN-BLOCK false-procedure)
 
-(define-method/equal? 'PROCEDURE
-  (lambda (left right)
-    #f))
+(define-method/equal? 'PROCEDURE false-procedure)
 
-(define-method/equal? 'QUOTATION
-  (lambda (left right)
-    #f))
+(define-method/equal? 'QUOTATION false-procedure)
 
 (define-method/equal? 'REFERENCE
   (lambda (left right)
@@ -889,4 +879,5 @@ USA.
 
 (define-method/equal? 'THE-ENVIRONMENT
   (lambda (left right)
+    (declare (ignore left))
     (the-environment? right)))
\ No newline at end of file