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.csc | |
| parent | 49138077de7c97913c7bcb16099738f6183b39bd (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.csc')
| -rw-r--r-- | lib/csc/macros.csc | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lib/csc/macros.csc b/lib/csc/macros.csc index f0b4d67..398f07b 100644 --- a/lib/csc/macros.csc +++ b/lib/csc/macros.csc @@ -362,11 +362,7 @@ (make-macro-transformer (lambda (syntax env) (syntax-case syntax - ((_ datum) - (let quote-expr ((datum datum)) - (syntax-case datum - ((head . tail) (make-call-builtin 'cons (list (quote-expr head) (quote-expr tail)))) - (_ (make-constant (clean-syntax datum)))))) + ((_ datum) (make-constant (clean-syntax datum))) (_ (raise-syntax-error "invalid form for quote" (clean-syntax syntax))))))) |