summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/cps/types.scm4
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)))