git.iko.soy/Idris-dev
on master help sign in
javascript: collapse nested continuations
43828d9raichoo
src/IRTS/CodegenJavaScript.hs+5
compare with master
unifiedsplit
@@ -1124,6 +1124,11 @@ evalCons js =
1124 collapseCont js = transformJS match js
1124 collapseCont js = transformJS match js
1125 where
1125 where
1126 match :: JS -> JS
1126 match :: JS -> JS
1127+ match (JSNew "__IDRRT__Cont" [JSFunction [] (
1128+ JSReturn ret@(JSNew "__IDRRT__Cont" [JSFunction [] _])
1129+ )]) = collapseCont ret
1130+
1131+
1127 match (JSNew "__IDRRT__Cont" [JSFunction [] (
1132 match (JSNew "__IDRRT__Cont" [JSFunction [] (
1128 JSReturn (JSIdent name)
1133 JSReturn (JSIdent name)
1129 )]) = JSIdent name
1134 )]) = JSIdent name