Remove profiling code, which doesn't appear to work anyway.
This commit is contained in:
parent
9fbd3d0212
commit
c3a4a0fc57
|
|
@ -10,8 +10,6 @@
|
||||||
(require (file "libcompiler/simplifier.scm"))
|
(require (file "libcompiler/simplifier.scm"))
|
||||||
(require (file "libcompiler/writer.scm"))
|
(require (file "libcompiler/writer.scm"))
|
||||||
|
|
||||||
;(require profile)
|
|
||||||
;(profile (begin
|
|
||||||
(define simplify-code? (make-parameter #t))
|
(define simplify-code? (make-parameter #t))
|
||||||
(define reduce-code? (make-parameter #t))
|
(define reduce-code? (make-parameter #t))
|
||||||
(define map-bytecode? (make-parameter #t))
|
(define map-bytecode? (make-parameter #t))
|
||||||
|
|
@ -64,6 +62,4 @@
|
||||||
(pretty-print (simplify-lambda source-module))]
|
(pretty-print (simplify-lambda source-module))]
|
||||||
[else
|
[else
|
||||||
(pretty-print source-module)])
|
(pretty-print source-module)])
|
||||||
;) #:delay 0.002)
|
|
||||||
|
|
||||||
; vim:set sw=2 expandtab:
|
; vim:set sw=2 expandtab:
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue