Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Must explicitly call (complex?) now

Browse source
This commit is contained in:
Justin Ethier 2019-02-18 22:12:55 -05:00
parent ec7c3c3308
commit 8efbf60528
2 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
scheme/cyclone/cps-optimizations.sld
View file

@ -306,6 +306,7 @@
(define (const-atomic? exp) (define (const-atomic? exp)
(or (integer? exp) (or (integer? exp)
(real? exp) (real? exp)
(complex? exp)
;(string? exp) ;(string? exp)
;(vector? exp) ;(vector? exp)
;(bytevector? exp) ;(bytevector? exp)

1
scheme/cyclone/util.sld
View file

@ -169,6 +169,7 @@
(define (const? exp) (define (const? exp)
(or (integer? exp) (or (integer? exp)
(real? exp) (real? exp)
(complex? exp)
(string? exp) (string? exp)
(vector? exp) (vector? exp)
(bytevector? exp) (bytevector? exp)