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