Commit 2fb9d801 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏢
Browse files

bug fix: handle FailExpr in copy

parent 7178b50e
...@@ -2003,6 +2003,8 @@ where ...@@ -2003,6 +2003,8 @@ where
copy (TupleSelect tuple_symbol arg_nr expr) cp_info copy (TupleSelect tuple_symbol arg_nr expr) cp_info
# (expr, cp_info) = copy expr cp_info # (expr, cp_info) = copy expr cp_info
= (TupleSelect tuple_symbol arg_nr expr, cp_info) = (TupleSelect tuple_symbol arg_nr expr, cp_info)
copy fail=:(FailExpr _) cp_info
= (fail, cp_info)
copy EE cp_info copy EE cp_info
= (EE, cp_info) = (EE, cp_info)
copy (NoBind ptr) cp_info copy (NoBind ptr) cp_info
...@@ -2112,9 +2114,7 @@ where ...@@ -2112,9 +2114,7 @@ where
(-*->) infixl (-*->) infixl
(-*->) a b :== a // ---> b (-*->) a b :== a // ---> b
//import RWSDebug //import RWSDebug
(->>) infixl (->>) infixl
(->>) a b :== a // ---> b (->>) a b :== a // ---> b
(<<-) infixl (<<-) infixl
......
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