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

Removed dead code

Browse source
This commit is contained in:
Justin Ethier 2016-07-12 23:13:34 -04:00
parent 3d138cbde8
commit db68e7cdeb
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/transforms.sld
View file

@ -1372,11 +1372,6 @@
ltype)) ltype))
(list (cps-seq (cddr ast) k)))))) (list (cps-seq (cddr ast) k))))))
;
; TODO: begin is expanded already by desugar code... better to do it here?
; ((seq? ast)
; (cps-seq (ast-subx ast) cont-ast))
((app? ast) ((app? ast)
;; Syntax check the function ;; Syntax check the function
(if (const? (car ast)) (if (const? (car ast))