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

Cleanup

Browse source
This commit is contained in:
Justin Ethier 2018-06-01 12:00:15 -04:00
parent 2b4ebc8031
commit f514860976
1 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
find-direct-rec-calls.scm
View file

@ -1,14 +1,10 @@
;; Instead of just porting this to cps-optmizations should consider
;; creating a new subdirectory under scheme/cyclone/cps-optimizations and starting to place
;; things like this there as new libraries, to isolate them, improve testability, and help
;; make optimizations easiser to maintain
(import (import
(scheme base) (scheme base)
(scheme cyclone ast) (scheme cyclone ast)
(scheme cyclone util) (scheme cyclone util)
(scheme cyclone pretty-print) (scheme cyclone pretty-print)
(scheme write) (scheme write)
;(srfi 2) (srfi 2)
) )
(define (find-direct-recursive-calls exp) (define (find-direct-recursive-calls exp)
@ -106,7 +102,5 @@
(shorterp k$240 (cdr x$6$131) (cdr y$5$130)))))) (shorterp k$240 (cdr x$6$131) (cdr y$5$130))))))
)) ))
(write `(todo exp def-exps ,(ast:lambda? 0) (ast:lambda? (car def-exps))))(newline)
(find-direct-recursive-calls (find-direct-recursive-calls
(ast:sexp->ast sexp)) (ast:sexp->ast sexp))
(write 'done)