diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-01-11 22:01:23 -0800 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-01-11 22:01:23 -0800 |
| commit | 68986fe0410584c6934c835bb0ee784655f5f8c5 (patch) | |
| tree | d51bc2f3e09df35ef81b7a0c462ff555b4344701 /linker-test.csc | |
| parent | Add a first implementation of a macro expander. (diff) | |
| download | chromatopelma-68986fe0410584c6934c835bb0ee784655f5f8c5.tar.zst | |
Move scheme compiler into a separate directory.
Diffstat (limited to 'linker-test.csc')
| -rw-r--r-- | linker-test.csc | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/linker-test.csc b/linker-test.csc deleted file mode 100644 index 084e9ae..0000000 --- a/linker-test.csc +++ /dev/null @@ -1,24 +0,0 @@ -(import (scheme base) - (only (csc encoding) encode) - (only (csc testing) - assert-equal - test) - (csc linker)) - - -(test link-if - (assert-equal - (encode '((const 5) (const 1) (if 2) (const 5) add exit)) - (link '((const 5) (const 1) (if "label1") (const 5) add (label "label1") exit)))) - - -(test link-backwards-if - (assert-equal - (encode '((const 10) (const 5) add (if -3))) - (link '((const 10) (label "label1") (const 5) add (if "label1"))))) - - -(test link-call - (assert-equal - (encode '((call 3) (const 10) exit (const 5) exit)) - (link '((call "label1") (const 10) (label "label0") exit (label "label1") (const 5) exit)))) |