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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-05-11 19:02:13 -04:00
parent 9618e35364
commit 81f000a6ee
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1167,7 +1167,8 @@
(let* ((args (cdr exp)) (let* ((args (cdr exp))
(var (adb:get (car exp))) (var (adb:get (car exp)))
;; Function definition, or #f if none ;; Function definition, or #f if none
(fnc (adbv:assigned-value var)) (fnc* (adbv:assigned-value var))
(fnc (if (pair? fnc*) (car fnc*) fnc*))
(formals (if (ast:lambda? fnc) (ast:lambda-args fnc) '())) (formals (if (ast:lambda? fnc) (ast:lambda-args fnc) '()))
;; First formal, or #f if none ;; First formal, or #f if none
(maybe-cont (if (and (list? formals) (pair? formals)) (maybe-cont (if (and (list? formals) (pair? formals))