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

Use default value to prevent raising an error

Browse source
This commit is contained in:
Justin Ethier 2018-09-24 13:38:02 -04:00
parent 0882b90204
commit edf3c0e87f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -738,8 +738,8 @@
; Core forms:
((ast:lambda? exp)
(let* ((id (ast:lambda-id exp))
(fnc (adb:get id)))
(if (adbf:simple fnc)
(fnc (adb:get/default id #f)))
(if (and fnc (adbf:simple fnc))
(opt:contract (caar (ast:lambda-body exp))) ;; Optimize-out the lambda
(ast:%make-lambda
(ast:lambda-id exp)