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

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2017-05-26 14:21:00 +00:00
parent a6093601de
commit 4e83e93cd7
1 changed files with 1 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

@ -857,6 +857,7 @@
(= 1 (length (ast:lambda-formals->list (car exp)))) (= 1 (length (ast:lambda-formals->list (car exp))))
(= 1 (length (ast:lambda-formals->list (cadr exp)))) (= 1 (length (ast:lambda-formals->list (cadr exp))))
(if? (car (ast:lambda-body (car exp)))) (if? (car (ast:lambda-body (car exp))))
;; TODO: think we can get rid of this simplification now
;; Simplification, for now only allow then/else that call a cont ;; Simplification, for now only allow then/else that call a cont
;; immediately, to prevent having to scan/rewrite those expressions ;; immediately, to prevent having to scan/rewrite those expressions
(let ((if-exp (car (ast:lambda-body (car exp)))) (let ((if-exp (car (ast:lambda-body (car exp))))