summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2013-08-11 17:18:09 -0400
committerMark H Weaver <mhw@netris.org>2013-08-11 17:18:09 -0400
commit1e5c32054e002e2c12ba0188b58b7d26432c3495 (patch)
tree6c32436e000d29493f9bc087944fd4998e5d36f9
parentaf95414f1dcbacf7fd5311a3ee89a799b20fd17b (diff)
downloadguile-1e5c32054e002e2c12ba0188b58b7d26432c3495.tar.gz
Adapt ecmascript compiler to tree-il prompt changes, again.
* module/language/ecmascript/compile-tree-il.scm (with-return-prompt): The body of an escape-only prompt is no longer a thunk. Adapt.
-rw-r--r--module/language/ecmascript/compile-tree-il.scm5
1 files changed, 1 insertions, 4 deletions
diff --git a/module/language/ecmascript/compile-tree-il.scm b/module/language/ecmascript/compile-tree-il.scm
index 5ad958d18..a9ac3e0cd 100644
--- a/module/language/ecmascript/compile-tree-il.scm
+++ b/module/language/ecmascript/compile-tree-il.scm
@@ -85,10 +85,7 @@
(list (-> (primcall 'make-prompt-tag)))
(-> (prompt #t
(current-return-tag)
- (-> (lambda '()
- (-> (lambda-case
- `((() #f #f #f () ())
- ,(body-thunk))))))
+ (body-thunk)
(let ((val (gensym "val")))
(-> (lambda '()
(-> (lambda-case