diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-06-21 20:14:25 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-06-21 20:14:25 -0700 |
| commit | c5fcc7d0f5c3f2f596f4d02d5e84283efce7eb52 (patch) | |
| tree | 1b668d561077e49a7e5daa7f32eef36c630a1b23 /csc/cps-test.csc | |
| parent | Comment expand-body. (diff) | |
| download | chromatopelma-c5fcc7d0f5c3f2f596f4d02d5e84283efce7eb52.tar.zst | |
More progress on CPS.
Diffstat (limited to 'csc/cps-test.csc')
| -rw-r--r-- | csc/cps-test.csc | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/csc/cps-test.csc b/csc/cps-test.csc new file mode 100644 index 0000000..dd66078 --- /dev/null +++ b/csc/cps-test.csc @@ -0,0 +1,18 @@ +(import (scheme base) + (only (csc ir2) + ir2=? + make-atom + make-tail + make-constant) + (only (csc testing) + assert-equal + test) + (csc cps)) + + +(test atom-const + (assert-equal ir2=? + (make-atom + (make-constant 5) + (make-tail)) + (ir1->ir2 (make-constant 5)))) |