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

Fix broken optimizations

Browse source
This commit is contained in:
Justin Ethier 2021-02-03 21:43:27 -05:00
parent ea9795cc54
commit b471e6fcd0
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
CHANGELOG.md
View file

@ -1,6 +1,6 @@
# Changelog # Changelog
## 0.26 - TBD ## 0.26
Features Features
@ -9,6 +9,7 @@ Features
Bug Fixes Bug Fixes
- Allow `pretty-print` to display contents of a record type. - Allow `pretty-print` to display contents of a record type.
- Re-enable optimizations that were broken when `vector?` was modified to no longer return true for record types.
## 0.25 - January 25, 2021 ## 0.25 - January 25, 2021

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

@ -2131,7 +2131,7 @@
;;(write exp) (newline) ;;(write exp) (newline)
(and-let* (((define? exp)) (and-let* (((define? exp))
(def-exps (define->exp exp)) (def-exps (define->exp exp))
((vector? (car def-exps))) ((record? (car def-exps)))
((ast:lambda? (car def-exps))) ((ast:lambda? (car def-exps)))
) )
(scan (car (ast:lambda-body (car def-exps))) (define->var exp)))) (scan (car (ast:lambda-body (car def-exps))) (define->var exp))))
@ -2175,7 +2175,7 @@
;;(write exp) (newline) ;;(write exp) (newline)
(and-let* (((define? exp)) (and-let* (((define? exp))
(def-exps (define->exp exp)) (def-exps (define->exp exp))
((vector? (car def-exps))) ((record? (car def-exps)))
((ast:lambda? (car def-exps))) ((ast:lambda? (car def-exps)))
) )
(scan (car (ast:lambda-body (car def-exps))) (define->var exp)))) (scan (car (ast:lambda-body (car def-exps))) (define->var exp))))
@ -2266,7 +2266,7 @@
;(trace:info `(analyze:find-recursive-calls ,exp)) ;(trace:info `(analyze:find-recursive-calls ,exp))
(and-let* (((define? exp)) (and-let* (((define? exp))
(def-exps (define->exp exp)) (def-exps (define->exp exp))
((vector? (car def-exps))) ((record? (car def-exps)))
((ast:lambda? (car def-exps))) ((ast:lambda? (car def-exps)))
(id (ast:lambda-id (car def-exps))) (id (ast:lambda-id (car def-exps)))
) )