Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 22:17:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Do not constant-fold computations that include a vector

Browse source
This commit is contained in:
Justin Ethier 2015-06-04 21:19:09 -04:00
parent 30619d8709
commit 4c8b8cc13e
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
trans.scm
View file

@ -582,7 +582,8 @@
(lambda (return) (lambda (return)
(for-each (for-each
(lambda (expr) (lambda (expr)
(if (not (const? expr)) (if (or (vector? expr)
(not (const? expr)))
(return #f))) (return #f)))
(cdr ast)) (cdr ast))
#t)))) #t))))