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

Added missing arg

Browse source
This commit is contained in:
Justin Ethier 2016-05-11 23:03:56 -04:00
parent 5d0e952c7c
commit 1f6acbc4e2
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -99,7 +99,7 @@
(for-each (for-each
(lambda (expr) (lambda (expr)
(analyze expr id)) (analyze expr id))
(ast:lambda-body)))) (ast:lambda-body exp))))
((ref? exp) ((ref? exp)
(let ((var (adb:get/default exp (adb:make-var)))) (let ((var (adb:get/default exp (adb:make-var))))
(adbv:set-ref-by! var (cons lid (adbv:ref-by var))) (adbv:set-ref-by! var (cons lid (adbv:ref-by var)))