diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-06-25 19:32:04 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-06-25 19:32:04 -0700 |
| commit | 05463502db73ab9a5ac23e1f598e838fbe14b3f8 (patch) | |
| tree | b7ae8cb2f7da272db8c0006dd5e0d5400a702743 /csc/ir1.csc | |
| parent | Continue work on continuation passing style. (diff) | |
| download | chromatopelma-05463502db73ab9a5ac23e1f598e838fbe14b3f8.tar.zst | |
More CPS.
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)) |