From 2bcdee8e3b1525f04783e22e72cc4a3440373bc7 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Mon, 4 Dec 2006 17:35:59 -0500 Subject: [PATCH] cleanup --- lib/libcompile.ss | 8 -------- 1 file changed, 8 deletions(-) diff --git a/lib/libcompile.ss b/lib/libcompile.ss index be0bdef..d0d8e41 100644 --- a/lib/libcompile.ss +++ b/lib/libcompile.ss @@ -244,7 +244,6 @@ (define (unique-var x) (make-var (gensym x) #f #f)) - (define (make-bind^ lhs* rhs* body) (if (null? lhs*) body @@ -411,7 +410,6 @@ [else (error 'recordize "invalid expression ~s" x)])) (E x '())) - (define (unparse x) (define (E-args proper x) (if proper @@ -550,9 +548,6 @@ [else (error who "invalid expression ~s" (unparse x))])) (Expr x)) - - - (define lambda-both 0) (define lambda-producer 0) (define lambda-consumer 0) @@ -4008,15 +4003,12 @@ (define (compile-expr expr) (let* ([p (recordize expr)] [p (optimize-direct-calls p)] -;;; [foo (analyze-cwv p)] [p (optimize-letrec p)] - ;[p (remove-letrec p)] [p (uncover-assigned/referenced p)] [p (copy-propagate p)] [p (rewrite-assignments p)] [p (convert-closures p)] [p (optimize-closures/lift-codes p)] - ;[p (lift-codes p)] [p (introduce-primcalls p)] [p (simplify-operands p)] [p (insert-stack-overflow-checks p)]