diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-09-02 17:07:29 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-09-02 17:07:29 -0700 |
| commit | 19ff46c53e800132f8d800b909b10f28f53b13e9 (patch) | |
| tree | 26fd8afe91917bee95b7aaca7a0db32501b09cfe /lib/csc/macros-test.csc | |
| parent | Fix some bugs in macros, and add list constants. (diff) | |
| download | chromatopelma-19ff46c53e800132f8d800b909b10f28f53b13e9.tar.zst | |
Undo the hacky list constant changes.
We will eventually implement list constants using some kind of rodata.
Diffstat (limited to 'lib/csc/macros-test.csc')
| -rw-r--r-- | lib/csc/macros-test.csc | 39 |
1 files changed, 3 insertions, 36 deletions
diff --git a/lib/csc/macros-test.csc b/lib/csc/macros-test.csc index 2af86b7..cce95ac 100644 --- a/lib/csc/macros-test.csc +++ b/lib/csc/macros-test.csc @@ -68,19 +68,7 @@ (test builtin-quote (assert-equal - (make-call-builtin 'cons - (list - (make-constant 'test) - (make-call-builtin 'cons - (list - (make-constant 1) - (make-call-builtin 'cons - (list - (make-constant 2) - (make-call-builtin 'cons - (list - (make-constant 3) - (make-constant '()))))))))) + (make-constant '(test 1 2 3)) (expand-body 'main '((quote (test 1 2 3))) builtins-environment) @@ -212,13 +200,7 @@ (test builtin-syntax-rules-ellipsis-zip (assert-equal - (make-call-builtin 'cons - (list - (make-call-builtin 'cons (list (make-constant 1) (make-constant 3))) - (make-call-builtin 'cons - (list - (make-call-builtin 'cons (list (make-constant 2) (make-constant 4))) - (make-constant '()))))) + (make-constant '((1 . 3) (2 . 4))) (expand-body 'main '((let-syntax ((zip @@ -232,22 +214,7 @@ (test builtin-syntax-rules-ellipsis-nested (assert-equal - (make-call-builtin 'cons - (list - (make-constant 1) - (make-call-builtin 'cons - (list - (make-constant 2) - (make-call-builtin 'cons - (list - (make-constant 3) - (make-call-builtin 'cons - (list - (make-constant 4) - (make-call-builtin 'cons - (list - (make-constant 5) - (make-constant '()))))))))))) + (make-constant '(1 2 3 4 5)) (expand-body 'main '((let-syntax ((append |