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

Added expand-lambda-body

Browse source
This commit is contained in:
Justin Ethier 2016-02-05 22:52:39 -05:00
parent 4ec87c20c8
commit f5cd5d0fdf
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/transforms.sld
View file

@ -110,6 +110,7 @@
cell-get? cell-get?
cell-get->cell cell-get->cell
expand expand
expand-lambda-body
let=>lambda let=>lambda
isolate-globals isolate-globals
has-global? has-global?
@ -823,6 +824,10 @@
(else (else
(error "unknown exp: " exp)))) (error "unknown exp: " exp))))
;; Nicer interface to expand-body
(define (expand-lambda-body exp env)
(expand-body '() exp env))
;; Helper to expand a lambda body, so we can splice in any begin's ;; Helper to expand a lambda body, so we can splice in any begin's
(define (expand-body result exp env) (define (expand-body result exp env)
(cond (cond