diff options
-rw-r--r-- | module/language/cps/types.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/cps/types.scm b/module/language/cps/types.scm index 4adb8a89e..4cfc71fd6 100644 --- a/module/language/cps/types.scm +++ b/module/language/cps/types.scm @@ -288,8 +288,8 @@ (b-min (type-entry-min b))) (cond ((not (< b-min a-min)) a-min) - ((> 0 b-min) 0) - ((> &range-min b-min) &range-min) + ((< 0 b-min) 0) + ((< &range-min b-min) &range-min) (else -inf.0))) (let ((a-max (type-entry-max a)) (b-max (type-entry-max b))) |