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

Set lambda args in adb

Browse source
This commit is contained in:
Justin Ethier 2018-09-19 18:35:09 -04:00
parent 47da3d5be6
commit b5248cb965
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

@ -1990,6 +1990,7 @@
(trace:info `(found known lambda with id ,lid)) (trace:info `(found known lambda with id ,lid))
(trace:info `(found known lambda with id ,lid sym ,(car sym)))) (trace:info `(found known lambda with id ,lid sym ,(car sym))))
(with-fnc! lid (lambda (fnc) (with-fnc! lid (lambda (fnc)
(adbf:set-all-params! fnc (ast:lambda-args exp))
(adbf:set-well-known! fnc #t))))) (adbf:set-well-known! fnc #t)))))
(define (scan exp) (define (scan exp)