diff options
Diffstat (limited to 'csc/ir1.csc')
| -rw-r--r-- | csc/ir1.csc | 5 |
1 files changed, 2 insertions, 3 deletions
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)) |