From 5880fd8301c60f658b9de25ba6d038e2c65223bd Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@hashcollision.org>
Date: Wed, 17 Apr 2013 17:06:21 -0600
Subject: [PATCH] fixed the weirdness with prompted aborts.  Need to add test
 case.

---
 whalesong/js-assembler/assemble.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/whalesong/js-assembler/assemble.rkt b/whalesong/js-assembler/assemble.rkt
index 7755912..c637ce0 100644
--- a/whalesong/js-assembler/assemble.rkt
+++ b/whalesong/js-assembler/assemble.rkt
@@ -583,7 +583,7 @@ EOF
                     (assemble-label (make-Label (LinkedLabel-label label)))])))]
       
       [(PushControlFrame/Prompt? stmt)
-       (format "M.c.push(new RT.PromptFrame(~a,~a,M.e.length,~a));" 
+       (format "M.c.push(new RT.CallFrame(~a,M.p)); M.addPrompt(~a,~a);" 
                (let: ([label : (U Symbol LinkedLabel) (PushControlFrame/Prompt-label stmt)])
                  (cond
                    [(symbol? label)