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:
parent
587842d874
commit
c2fa345093
4 changed files with 33 additions and 9 deletions
|
@ -95,12 +95,12 @@
|
|||
string?
|
||||
keyword?
|
||||
bytevector?
|
||||
bitvector?))
|
||||
bitvector?
|
||||
heap-number?))
|
||||
|
||||
;; FIXME: Support these.
|
||||
(define *other-predicates*
|
||||
'(weak-vector?
|
||||
number?
|
||||
hash-table?
|
||||
pointer?
|
||||
fluid?
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue