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

WIP - Cyc-list for anonymous vararg lambdas

Browse source
This commit is contained in:
Justin Ethier 2016-11-28 18:12:08 -05:00
parent 4b96938488
commit 36e590610b
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
scheme/cyclone/transforms.sld
View file

@ -1297,11 +1297,15 @@
;; Do conversion ;; Do conversion
(cps-list (app->args ast) (cps-list (app->args ast)
(lambda (vals) (lambda (vals)
(cons (ast:make-lambda (let ((code
(lambda->formals fn) (cons (ast:make-lambda
(list (cps-seq (cddr fn) ;(ast-subx fn) (lambda->formals fn)
cont-ast))) (list (cps-seq (cddr fn) ;(ast-subx fn)
vals)))) cont-ast)))
vals)))
(if (equal? (lambda-formals-type fn) 'args:varargs)
(cons 'Cyc-list code) ;; Manually build up list
code)))))
(else (else
(cps-list ast ;(ast-subx ast) (cps-list ast ;(ast-subx ast)
(lambda (args) (lambda (args)