Changeset 70 for trunk

Timestamp:

07/15/09 05:30:05 (3 years ago)

Author:

dom

Message:

Refactoring.

File:

• trunk/src/compiler.erl (modified) (1 diff)

trunk/src/compiler.erl

@@ -10 +10 @@
         check ->
             Watcher ! check,
-            receive_files (Notify, Watcher, Modules, Modules, Binaries, Removed);
+            New_modules = receive_files (Watcher, Modules),
+            compile (Notify, Watcher, Modules, New_modules, Binaries, Removed);
         {Pid, stop} ->
             Pid ! {self (), bye}
     end.
 
-receive_files (Notify, Watcher, Modules, New, Binaries, Removed) ->
+receive_files (Watcher, Modules) ->
     receive
         {Watcher, {{file, ".erl"}, File, Event}} ->
-            receive_files (Notify, Watcher, Modules, dict: store (File, Event, New), Binaries, Removed);
+            receive_files (Watcher, dict: store (File, Event, Modules));
         {Watcher, _} ->
-            receive_files (Notify, Watcher, Modules, New, Binaries, Removed)
+            receive_files (Watcher, Modules)
     after 500 ->
-            compile (Notify, Watcher, Modules, New, Binaries, Removed)
+            Modules
     end.