apply GPR123: fix stupid bug in opttoploop

git-svn-id: http://caml.inria.fr/svn/ocaml/version/4.02@15648 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

Author: Damien Doligez

toplevel/opttoploop.ml

@@ -136,7 +136,7 @@ let load_lambda ppf (size, lam) =
     else Filename.temp_file ("caml" ^ !phrase_name) ext_dll
   in
   let fn = Filename.chop_extension dll in
-  Asmgen.compile_implementation ~toplevel:need_symbol fn ppf (size, lam);
+  Asmgen.compile_implementation ~toplevel:need_symbol fn ppf (size, slam);
   Asmlink.call_linker_shared [fn ^ ext_obj] dll;
   Sys.remove (fn ^ ext_obj);