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

Add enclosing define

Browse source
This commit is contained in:
Justin Ethier 2018-05-21 18:57:33 -04:00
parent 16a217abf0
commit 00579b8644
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
find-named-lets.scm
View file

@ -18,6 +18,7 @@
;; (loop$14$171 zr$13$170 zi$12$169 c$11$168))
;; #f)
(define (find-named-lets exp)
(define (scan exp)
(cond
((ast:lambda? exp)
@ -73,6 +74,7 @@
(else
(map scan exp))))
(else exp)))
(scan exp))
;; Test code follows:
(define sexp
@ -134,7 +136,7 @@
(Cyc-fast-plus c$15$172 1))))))))
#f))))
(scan
(find-named-lets
(ast:sexp->ast
sexp))