suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed the weirdness with prompted aborts. Need to add test case.

Browse Source
This commit is contained in:
Danny Yoo 2013-04-17 17:06:21 -06:00
parent d916cecdc9
commit 5880fd8301
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
whalesong/js-assembler/assemble.rkt
View File

@ -583,7 +583,7 @@ EOF
(assemble-label (make-Label (LinkedLabel-label label)))])))] (assemble-label (make-Label (LinkedLabel-label label)))])))]
[(PushControlFrame/Prompt? stmt) [(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)]) (let: ([label : (U Symbol LinkedLabel) (PushControlFrame/Prompt-label stmt)])
(cond (cond
[(symbol? label) [(symbol? label)