conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

cleanup

This commit is contained in:
Abdulaziz Ghuloum 2006-12-04 17:35:59 -05:00
parent 6072e8980f
commit 2bcdee8e3b
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/libcompile.ss
View File

@ -244,7 +244,6 @@
(define (unique-var x) (define (unique-var x)
(make-var (gensym x) #f #f)) (make-var (gensym x) #f #f))
(define (make-bind^ lhs* rhs* body) (define (make-bind^ lhs* rhs* body)
(if (null? lhs*) (if (null? lhs*)
body body
@ -411,7 +410,6 @@
[else (error 'recordize "invalid expression ~s" x)])) [else (error 'recordize "invalid expression ~s" x)]))
(E x '())) (E x '()))
(define (unparse x) (define (unparse x)
(define (E-args proper x) (define (E-args proper x)
(if proper (if proper
@ -550,9 +548,6 @@
[else (error who "invalid expression ~s" (unparse x))])) [else (error who "invalid expression ~s" (unparse x))]))
(Expr x)) (Expr x))
(define lambda-both 0) (define lambda-both 0)
(define lambda-producer 0) (define lambda-producer 0)
(define lambda-consumer 0) (define lambda-consumer 0)
@ -4008,15 +4003,12 @@
(define (compile-expr expr) (define (compile-expr expr)
(let* ([p (recordize expr)] (let* ([p (recordize expr)]
[p (optimize-direct-calls p)] [p (optimize-direct-calls p)]
;;; [foo (analyze-cwv p)]
[p (optimize-letrec p)] [p (optimize-letrec p)]
;[p (remove-letrec p)]
[p (uncover-assigned/referenced p)] [p (uncover-assigned/referenced p)]
[p (copy-propagate p)] [p (copy-propagate p)]
[p (rewrite-assignments p)] [p (rewrite-assignments p)]
[p (convert-closures p)] [p (convert-closures p)]
[p (optimize-closures/lift-codes p)] [p (optimize-closures/lift-codes p)]
;[p (lift-codes p)]
[p (introduce-primcalls p)] [p (introduce-primcalls p)]
[p (simplify-operands p)] [p (simplify-operands p)]
[p (insert-stack-overflow-checks p)] [p (insert-stack-overflow-checks p)]