From 8e078f4f1a675eb5c0458a009678f9ee48017c09 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Fri, 12 Mar 2010 16:16:24 -0800 Subject: [PATCH] Tidy up. --- src/sf/analyze.scm | 21 ++++++--------------- 1 file changed, 6 insertions(+), 15 deletions(-) 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 -- 2.25.1