From 745ce9f7689e5eb5ff8edc0690b5efc1ff3018be Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Fri, 18 Mar 2011 21:17:32 -0400
Subject: [PATCH] reducing number of closures

---
 assemble.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/assemble.rkt b/assemble.rkt
index e3c9877..bb001fb 100644
--- a/assemble.rkt
+++ b/assemble.rkt
@@ -202,7 +202,7 @@ EOF
 ;; assemble-basic-block: basic-block -> string
 (: assemble-basic-block (BasicBlock -> String))
 (define (assemble-basic-block a-basic-block)
-  (format "var ~a=function(MACHINE){\nif(--MACHINE.callsBeforeTrampoline < 0) { throw function() { return ~a(MACHINE); }; }\n~a};"
+  (format "var ~a=function(MACHINE){\nif(--MACHINE.callsBeforeTrampoline < 0) { throw ~a; }\n~a};"
           (BasicBlock-name a-basic-block)
           (BasicBlock-name a-basic-block)
           (string-join (map assemble-statement (BasicBlock-stmts a-basic-block))