diff options
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 |