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

Use lists of formals

Browse source
This commit is contained in:
Justin Ethier 2019-01-03 13:35:28 -05:00
parent c382b259c7
commit 8cd73b1d19
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/cps-opt-analyze-call-graph.scm
View file

@ -13,6 +13,7 @@
(scheme write) (scheme write)
(scheme cyclone ast) (scheme cyclone ast)
(scheme cyclone primitives) (scheme cyclone primitives)
(scheme cyclone transforms)
(scheme cyclone cps-optimizations) (scheme cyclone cps-optimizations)
(scheme cyclone util) (scheme cyclone util)
(scheme cyclone pretty-print) (scheme cyclone pretty-print)
@ -60,7 +61,7 @@
(for-each (for-each
(lambda (a) (lambda (a)
(scan a vars)) (scan a vars))
(ast:lambda-args exp)) (ast:lambda-formals->list exp))
(for-each (for-each
(lambda (e) (lambda (e)
(scan e vars)) (scan e vars))
@ -88,7 +89,7 @@
(for-each (for-each
(lambda (e) (lambda (e)
(scan e vars)) (scan e vars))
(ast:lambda-args (car exp))) (ast:lambda-formals->list (car exp)))
;; Scan body, with reset vars (??) ;; Scan body, with reset vars (??)
(for-each (for-each