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

Add exact-integer? as interesting Tree-IL effect-free primitive

Browse source 
* module/language/tree-il/primitives.scm (*interesting-primitive-names*):
  (*effect-free-primitives*, *effect+exception-free-primitives*): Detect
  use of exact-integer?.
* module/language/tree-il/compile-cps.scm (canonicalize): Compile
  exact-integer? to a fixnum?-or-bignum? check.
This commit is contained in:
Andy Wingo 2017-11-21 16:09:30 +01:00
parent 72c3107539
commit 980de88902
3 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/language/cps/types.scm
View file

@ -1352,7 +1352,6 @@ minimum, and maximum."
;; FIXME: If it's a flonum it may be an integer, but if it's not an
;; integer it also may be still be a flonum.
;; (define-simple-type-predicate-inferrer integer? (logior &exact-integer &flonum))
(define-simple-type-predicate-inferrer exact-integer? &exact-integer)
(define-simple-type-checker (exact? &number))
(define-type-inferrer (exact? val result)