Commit b5aed71b authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏘
Browse files

Clean 2.0 compiler bug workaround

parent 2ebb97de
......@@ -3023,7 +3023,13 @@ copyExpr expr heaps=:{hp_var_heap, hp_expression_heap}
= (expr, {heaps & hp_var_heap = us_var_heap, hp_expression_heap = us_symbol_heap})
//---> ("copy Expr")
/* RWS ... Clean 2.0 compiler bug workaround
mapExprSt :: (Expression .st->(Expression, .st)) Expression .st -> (Expression, .st)
*/
mapExprSt :: (Expression .st->v:(Expression, .st)) Expression .st
-> w:(Expression, .st)
, [v<=w]
// ... RWS
mapExprSt f (App app=:{app_args}) st
# (app_args, st) = mapSt (mapExprSt f) app_args st
= f (App { app & app_args = app_args }) st
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment