Преглед на файлове

Added input checks in ebb_prim on sync/1, split/1, merge/1, switch/2.

Paul Downen преди 13 години
родител
ревизия
044a4ee90a
променени са 1 файла, в които са добавени 4 реда и са изтрити 4 реда
  1. 4 4
      src/ebb_prim.erl

+ 4 - 4
src/ebb_prim.erl

@@ -55,13 +55,13 @@ route(N, M, Map) ->
 	false -> erlang:error(badarg, [N, M, Map])
     end.
 
-sync(N) -> #sync{size=N}.
+sync(N) when is_number(N) -> #sync{size=N}.
 
-split(N) -> #split{size=N}.
+split(N) when is_number(N) -> #split{size=N}.
 
-merge(N) -> #merge{size=N}.
+merge(N) when is_number(N) -> #merge{size=N}.
 
-switch(N, Map = [_|_]) ->
+switch(N, Map = [_|_]) when is_number(N) ->
     SMap = lists:ukeysort(2, Map),
     try
 	lists:foldl(fun({_T_I, I}, Prev_I) when I == 1+Prev_I -> I;