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

Call simple-lambda

Browse source
This commit is contained in:
Justin Ethier 2016-05-14 00:02:37 -04:00
parent d989040cf8
commit 49fe5bdef6
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/optimize-cps.sld
View file

@ -148,7 +148,9 @@
(cond (cond
; Core forms: ; Core forms:
((ast:lambda? exp) ((ast:lambda? exp)
(let ((id (ast:lambda-id exp))) (let* ((id (ast:lambda-id exp))
(fnc (adb:get id)))
(adbf:set-simple! (simple-lambda? exp))
(for-each (for-each
(lambda (expr) (lambda (expr)
(analyze2 expr)) (analyze2 expr))