mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Fix s64->scm reducer

Browse source 
* module/language/cps/type-fold.scm (s64->scm): Fix reducer.
This commit is contained in:
Andy Wingo 2017-11-20 18:31:31 +01:00
parent b0081accb6
commit a48735f56c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/type-fold.scm
View file

@ -381,7 +381,7 @@
(define-unary-primcall-reducer (s64->scm cps k src constant arg type min max) (define-unary-primcall-reducer (s64->scm cps k src constant arg type min max)
(cond (cond
((<= max (target-most-positive-fixnum)) ((<= (target-most-negative-fixnum) min max (target-most-positive-fixnum))
(with-cps cps (with-cps cps
(build-term (build-term
($continue k src ($continue k src