clean up
This commit is contained in:
parent
ea44b68b7c
commit
6072e8980f
BIN
lib/ikarus.boot
BIN
lib/ikarus.boot
Binary file not shown.
|
@ -559,7 +559,6 @@
|
||||||
(define lambda-none 0)
|
(define lambda-none 0)
|
||||||
(define branching-producer 0)
|
(define branching-producer 0)
|
||||||
|
|
||||||
|
|
||||||
(define (analyze-cwv x)
|
(define (analyze-cwv x)
|
||||||
(define who 'analyze-cwv)
|
(define who 'analyze-cwv)
|
||||||
(define (lambda? x)
|
(define (lambda? x)
|
||||||
|
@ -637,9 +636,6 @@
|
||||||
[else (error who "invalid expression ~s" (unparse x))]))
|
[else (error who "invalid expression ~s" (unparse x))]))
|
||||||
(E x))
|
(E x))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(define (optimize-letrec x)
|
(define (optimize-letrec x)
|
||||||
(define who 'optimize-letrec)
|
(define who 'optimize-letrec)
|
||||||
(define (extend-hash lhs* h ref)
|
(define (extend-hash lhs* h ref)
|
||||||
|
@ -771,8 +767,6 @@
|
||||||
(E x (lambda (x) (error who "free var ~s found" x))
|
(E x (lambda (x) (error who "free var ~s found" x))
|
||||||
void))
|
void))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;;; This pass was here before optimize-letrec was implemented.
|
;;; This pass was here before optimize-letrec was implemented.
|
||||||
(define (remove-letrec x)
|
(define (remove-letrec x)
|
||||||
(define who 'remove-letrec)
|
(define who 'remove-letrec)
|
||||||
|
@ -826,8 +820,6 @@
|
||||||
[else (error who "invalid expression ~s" (unparse x))]))
|
[else (error who "invalid expression ~s" (unparse x))]))
|
||||||
(Expr x))
|
(Expr x))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(define (uncover-assigned/referenced x)
|
(define (uncover-assigned/referenced x)
|
||||||
(define who 'uncover-assigned/referenced)
|
(define who 'uncover-assigned/referenced)
|
||||||
(define (Expr* x*)
|
(define (Expr* x*)
|
||||||
|
@ -1032,9 +1024,6 @@
|
||||||
;;; redo them
|
;;; redo them
|
||||||
(uncover-assigned/referenced x)))
|
(uncover-assigned/referenced x)))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(define (rewrite-assignments x)
|
(define (rewrite-assignments x)
|
||||||
(define who 'rewrite-assignments)
|
(define who 'rewrite-assignments)
|
||||||
(define (fix-lhs* lhs*)
|
(define (fix-lhs* lhs*)
|
||||||
|
@ -1098,11 +1087,6 @@
|
||||||
[else (error who "invalid expression ~s" (unparse x))]))
|
[else (error who "invalid expression ~s" (unparse x))]))
|
||||||
(Expr x))
|
(Expr x))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(define (convert-closures prog)
|
(define (convert-closures prog)
|
||||||
(define who 'convert-closures)
|
(define who 'convert-closures)
|
||||||
(define (Expr* x*)
|
(define (Expr* x*)
|
||||||
|
@ -1322,7 +1306,7 @@
|
||||||
(let ([x (E x)])
|
(let ([x (E x)])
|
||||||
(make-codes all-codes x)))
|
(make-codes all-codes x)))
|
||||||
|
|
||||||
(define (lift-codes x)
|
(define (lift-codes x) ;;; NOT USED
|
||||||
(define who 'lift-codes)
|
(define who 'lift-codes)
|
||||||
(define all-codes '())
|
(define all-codes '())
|
||||||
(define (do-code x)
|
(define (do-code x)
|
||||||
|
|
Loading…
Reference in New Issue