guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 05/30: Fix s64->scm reducer


From: Andy Wingo
Subject: [Guile-commits] 05/30: Fix s64->scm reducer
Date: Fri, 24 Nov 2017 09:24:20 -0500 (EST)

wingo pushed a commit to branch master
in repository guile.

commit a48735f56c18e9ac0df2eb49c2f7749fd3f56e2f
Author: Andy Wingo <address@hidden>
Date:   Mon Nov 20 18:31:31 2017 +0100

    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 4e8108f..f546cd3 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]