Hi,
If I do that, it keeps evaluating the cell forever...
Same for me. Miguel, try this:
<< CompiledFunctionTools` ;
P = \[CapitalPi][X];
f2 = Compile[{{m, _Real, 1}}, Log[Exp[P + \[Beta] F1.m] + Exp[\[Beta] F0.m]]]
f3 = Compile[{{m, _Real, 1}}, Log[Exp[P + \[Beta] F1.m] + Exp[\[Beta] F0.m]], CompilationOptions -> {"InlineExternalDefinitions" -> True}]
StringFreeQ[CompilePrint[f2], "MainEvaluate"]
StringFreeQ[CompilePrint[f3], "MainEvaluate"]
Also, take a look at http://mathematica.stackexchange.com/questions/1803/how-to-compile-effectively
I.M.