diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-07-02 23:04:28 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-07-02 23:04:28 -0700 |
| commit | 37e086d27d478246e72b8f5c1b75ed5d092495fa (patch) | |
| tree | bae0ac5e3c7f0984ef259da6ad5d6f094b64e588 /csc/linker.csc | |
| parent | Add update conversion. (diff) | |
| download | chromatopelma-37e086d27d478246e72b8f5c1b75ed5d092495fa.tar.zst | |
Write closure conversion.
I desperately need a diffing library.
Diffstat (limited to 'csc/linker.csc')
| -rw-r--r-- | csc/linker.csc | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/csc/linker.csc b/csc/linker.csc index b3f2a5d..852ee13 100644 --- a/csc/linker.csc +++ b/csc/linker.csc @@ -41,15 +41,8 @@ (hash-bytevector (string->utf8 s))) - (define (cmp-strings s1 s2) - (cond - ((string<? s1 s2) -1) - ((string=? s1 s2) 0) - (else 1))) - - (define (make-label-map program) - (let loop ((m (make-map hash-string cmp-strings)) + (let loop ((m (make-map hash-string string<?)) (program program) (i 0)) (match program |