From 05463502db73ab9a5ac23e1f598e838fbe14b3f8 Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Sat, 25 Jun 2022 19:32:04 -0700 Subject: More CPS. --- csc/ir1.csc | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'csc/ir1.csc') diff --git a/csc/ir1.csc b/csc/ir1.csc index 76faef9..cf745c6 100644 --- a/csc/ir1.csc +++ b/csc/ir1.csc @@ -212,9 +212,8 @@ (ir1=? (lexical-set-expression x) (lexical-set-expression y)))) ((and (library-define? x) (library-define? y)) (and - (symbol=? (library-define-name x) (library-define-name y)) - (ir1=? (library-define-expression x) (library-define-expression y)) - (equal? (library-define-library x) (library-define-library y)))) + (ir1=? (library-define-ref x) (library-define-ref y)) + (ir1=? (library-define-expression x) (library-define-expression y)))) ((and (if? x) (if? y)) (and (ir1=? (if-test x) (if-test y)) -- cgit v1.3.1