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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-06-03 21:51:07 -04:00
parent bafa80f63b
commit d112632300
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -456,7 +456,11 @@
;; TODO: check for more than one arg?? ;; TODO: check for more than one arg??
(equal? (length (cdr exp)) (equal? (length (cdr exp))
(length (ast:lambda-formals->list (car exp)))) (length (ast:lambda-formals->list (car exp))))
(all-prim-calls? (cdr exp))) (every
(lambda (arg)
(and (prim-call? arg)
(not (prim:cont? (car arg)))))
(cdr exp)))
(let ((args (cdr exp))) (let ((args (cdr exp)))
(for-each (for-each
(lambda (param) (lambda (param)
@ -536,7 +540,8 @@
(trace:info "---------------- cps analysis db:") (trace:info "---------------- cps analysis db:")
(trace:info (adb:get-db)) (trace:info (adb:get-db))
;ast ;; DEBUGGING!!! ;ast ;; DEBUGGING!!!
(opt:contract ast) ;(contract-prims
; (opt:contract ast))
) )
;; Older code, delete this soon ;; Older code, delete this soon