diff options
Diffstat (limited to 'csc/cps.csc')
| -rw-r--r-- | csc/cps.csc | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/csc/cps.csc b/csc/cps.csc index 230a1c4..e7f0fe6 100644 --- a/csc/cps.csc +++ b/csc/cps.csc @@ -320,8 +320,7 @@ (lambda (ref) (gensym->int (lexical-ref-gensym ref))) (lambda (x y) - (< (gensym->int (lexical-ref-gensym x)) - (gensym->int (lexical-ref-gensym y)))))) + (- (gensym->int (lexical-ref-gensym y)) (gensym->int (lexical-ref-gensym x)))))) (define (get-boxed expr) |