1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 02:00:20 +02:00

Add missing compiler support for heap-object? primcall et al.

* module/language/cps/effects-analysis.scm: Reorder effect-free
  primitives.  Add immediate predicates and heap-number?.
* module/language/cps/primitives.scm (*heap-type-predicates*): Add
  heap-number?.
* module/language/cps/type-fold.scm (heap-number?): New folder.
* module/language/cps/types.scm (heap-number?): New inferrer.
This commit is contained in:
Andy Wingo 2017-10-29 14:35:19 +01:00
parent 587842d874
commit c2fa345093
4 changed files with 33 additions and 9 deletions

View file

@ -95,12 +95,12 @@
string?
keyword?
bytevector?
bitvector?))
bitvector?
heap-number?))
;; FIXME: Support these.
(define *other-predicates*
'(weak-vector?
number?
hash-table?
pointer?
fluid?