Changeset 14 for trunk

Timestamp:

12/01/07 18:36:35 (4 years ago)

Author:

dom

Message:

Refactoring to reuse wrapped compile:file

Location:

trunk/src

Files:

• compiler.erl (modified) (1 diff)
• wrap.erl (added)

trunk/src/compiler.erl

@@ -5 +5 @@
     receive
         {found, ".erl", File_name} ->
-            Pid ! report (compile:file (File_name, [binary, return]));
+            Pid ! wrap:compile_file (File_name, [binary, return]);
         _ -> purge
     end,
     init (Pid).
 
-report ({ok, Module, Binary}) ->
-    {compiled, Module, Binary, []};
-report ({ok, Module, Binary, Warnings}) ->
-    {compiled, Module, Binary, Warnings}.