From a48735f56c18e9ac0df2eb49c2f7749fd3f56e2f Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 20 Nov 2017 18:31:31 +0100
Subject: [PATCH] Fix s64->scm reducer

* module/language/cps/type-fold.scm (s64->scm): Fix reducer.
---
 module/language/cps/type-fold.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/language/cps/type-fold.scm b/module/language/cps/type-fold.scm
index 4e8108fbb..f546cd3ed 100644
--- a/module/language/cps/type-fold.scm
+++ b/module/language/cps/type-fold.scm
@@ -381,7 +381,7 @@
 
 (define-unary-primcall-reducer (s64->scm cps k src constant arg type min max)
   (cond
-   ((<= max (target-most-positive-fixnum))
+   ((<= (target-most-negative-fixnum) min max (target-most-positive-fixnum))
     (with-cps cps
       (build-term
         ($continue k src