Remove unused code.
This commit is contained in:
parent
4b6c252fb7
commit
564a7bcf2f
|
@ -13,7 +13,6 @@
|
||||||
n-ary->binary n-ary-comp->binary
|
n-ary->binary n-ary-comp->binary
|
||||||
unboxed-gensym reset-unboxed-gensym
|
unboxed-gensym reset-unboxed-gensym
|
||||||
optimize
|
optimize
|
||||||
print-res
|
|
||||||
syntax/loc/origin quasisyntax/loc/origin)
|
syntax/loc/origin quasisyntax/loc/origin)
|
||||||
|
|
||||||
;; for tracking both origin and source location information
|
;; for tracking both origin and source location information
|
||||||
|
@ -79,8 +78,3 @@
|
||||||
;; will be set to the actual optimization function at the entry point
|
;; will be set to the actual optimization function at the entry point
|
||||||
;; of the optimizer
|
;; of the optimizer
|
||||||
(define optimize (make-parameter #f))
|
(define optimize (make-parameter #f))
|
||||||
|
|
||||||
(define (print-res t)
|
|
||||||
(match t
|
|
||||||
[(tc-result1: t f o)
|
|
||||||
(format "~a" t)]))
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user