diff options
Diffstat (limited to 'csc/macros.csc')
| -rw-r--r-- | csc/macros.csc | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/csc/macros.csc b/csc/macros.csc index 6364e19..045194b 100644 --- a/csc/macros.csc +++ b/csc/macros.csc @@ -17,7 +17,6 @@ insert key-not-found-error? lookup - make-map map-for-each merge) (only (csc ir1) @@ -374,15 +373,12 @@ (hash-bytevector (string->utf8 (identifier-uuid i)))) - (define (cmp-identifier i1 i2) - (cond - ((string<? (identifier-uuid i1) (identifier-uuid i2)) -1) - ((string=? (identifier-uuid i1) (identifier-uuid i2)) 0) - (else 1))) + (define (identifier<? i1 i2) + (string<? (identifier-uuid i1) (identifier-uuid i2))) (define (alist->substitutions l) - (alist->map hash-identifier cmp-identifier l)) + (alist->map hash-identifier identifier<? l)) (define (is-underscore expression) |