Commit 05729bff authored by John van Groningen's avatar John van Groningen
Browse files

fix bug in fusion: keep type when copying a FreeVar

parent 98c20caf
......@@ -5043,7 +5043,7 @@ instance copy FreeVar
where
copy fv=:{fv_info_ptr,fv_ident} ci cs=:{cs_var_heap}
# (new_info_ptr, cs_var_heap) = newPtr VI_Empty cs_var_heap
= ({ fv & fv_info_ptr = new_info_ptr }, { cs & cs_var_heap = writePtr fv_info_ptr (VI_Variable fv_ident new_info_ptr) cs_var_heap })
= ({fv & fv_info_ptr = new_info_ptr}, {cs & cs_var_heap = writeVarInfo fv_info_ptr (VI_Variable fv_ident new_info_ptr) cs_var_heap})
instance copy App
where
......
Markdown is supported
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