Commit cefef156 authored by simonpj's avatar simonpj
Browse files

[project @ 2000-09-07 16:24:14 by simonpj]

Get the worker and wrapper in the right order
parent 04a28507
......@@ -158,7 +158,7 @@ dsFImport fn_id ty may_not_gc ext_name cconv
wrapper_body = foldr ($) (res_wrapper work_app) arg_wrappers
wrap_rhs = mkInlineMe (mkLams (tvs ++ args) wrapper_body)
in
returnDs [NonRec fn_id wrap_rhs, NonRec work_id work_rhs]
returnDs [NonRec work_id work_rhs, NonRec fn_id wrap_rhs]
\end{code}
Foreign labels
......
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