From 4c541b006c8655916e2ef5cc1eea401c9d2a7bcc Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Fri, 5 Aug 2011 16:54:35 -0400 Subject: [PATCH] removing call to optimize-basic-blocks --- js-assembler/assemble.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/js-assembler/assemble.rkt b/js-assembler/assemble.rkt index ef513c0..6063e1a 100644 --- a/js-assembler/assemble.rkt +++ b/js-assembler/assemble.rkt @@ -44,9 +44,8 @@ (fprintf op "var RUNTIME = plt.runtime;\n") (define-values (basic-blocks entry-points) (fracture stmts)) - (define optimized-basic-blocks (optimize-basic-blocks basic-blocks)) - (write-blocks optimized-basic-blocks (list->set entry-points) op) + (write-blocks basic-blocks (list->set entry-points) op) (write-linked-label-attributes stmts op)