diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-07-28 15:41:42 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-07-28 15:41:42 -0700 |
| commit | 2c1bab05d6c2debf71ea313901dc751a753880c4 (patch) | |
| tree | 99dc7af695350b8606b17888f3bef0c6a2a4d79a /csc/linker-test.csc | |
| parent | Better interface for join. (diff) | |
| download | chromatopelma-2c1bab05d6c2debf71ea313901dc751a753880c4.tar.zst | |
Use a better interface for linker.
Diffstat (limited to 'csc/linker-test.csc')
| -rw-r--r-- | csc/linker-test.csc | 17 |
1 files changed, 2 insertions, 15 deletions
diff --git a/csc/linker-test.csc b/csc/linker-test.csc index 70e5e31..7b5d5db 100644 --- a/csc/linker-test.csc +++ b/csc/linker-test.csc @@ -16,17 +16,6 @@ (begin - (define compare-globals - (make-comparer - (lambda (x) - (hash-bytevector (string->utf8 (sprintf "{}" x)))) - (lambda (x y) - (cond - ((equal? x y) 0) - ((string<? (sprintf "{}" x) (sprintf "{}" y)) -1) - (else 1))))) - - (test link-labels (assert-equal '((jmp (const 3)) @@ -39,8 +28,7 @@ (label 1) (jmp (label 0)) (label init) - (jmp (label 0)))) - (make-map compare-globals)))) + (jmp (label 0))))))) (test link-labels-are-unique-per-program @@ -59,8 +47,7 @@ ((label 0) (jmp (label 0)) (label init) - (jmp (label 0)))) - (make-map compare-globals)))) + (jmp (label 0))))))) (test link-globals |