Use System.services_timeout/0 for elixir_code_server calls in the kernel.

Author: alexrp

lib/elixir/lib/code.ex

@@ -379,7 +379,7 @@ defmodule Code do
   end
 
   defp server_call(args) do
-    :gen_server.call(:elixir_code_server, args)
+    :gen_server.call(:elixir_code_server, args, System.services_timeout)
   end
 
   defp server_cast(args) do

lib/elixir/lib/kernel/cli.ex

@@ -12,7 +12,7 @@ defmodule Kernel.CLI do
     argv = lc arg inlist argv, do: list_to_binary(arg)
 
     { config, argv } = process_argv(argv, Kernel.CLI.Config.new)
-    :gen_server.call(:elixir_code_server, { :argv, argv })
+    :gen_server.call(:elixir_code_server, { :argv, argv }, System.services_timeout)
 
     run fn ->
       Enum.map Enum.reverse(config.commands), process_command(&1, config)
@@ -24,7 +24,7 @@ defmodule Kernel.CLI do
   Wait until the CLI finishes procesing options.
   """
   def wait_until_finished do
-    case :gen_server.call(:elixir_code_server, { :wait_until_finished, self }) do
+    case :gen_server.call(:elixir_code_server, { :wait_until_finished, self }, System.services_timeout) do
       :wait ->
         receive do
           { :elixir_code_server, :finished } -> :ok
@@ -74,7 +74,7 @@ defmodule Kernel.CLI do
   ## Private
 
   defp at_exit(status) do
-    hooks = :gen_server.call(:elixir_code_server, :flush_at_exit)
+    hooks = :gen_server.call(:elixir_code_server, :flush_at_exit, System.services_timeout)
 
     lc hook inlist hooks do
       try do

lib/elixir/lib/system.ex

@@ -50,7 +50,7 @@ defmodule System do
   """
   @spec argv() :: [String.t]
   def argv do
-    :gen_server.call(:elixir_code_server, :argv)
+    :gen_server.call(:elixir_code_server, :argv, System.services_timeout)
   end
 
   @doc """
@@ -315,7 +315,7 @@ defmodule System do
   ## Helpers
 
   defp server_call(args) do
-    :gen_server.call(:elixir_code_server, args)
+    :gen_server.call(:elixir_code_server, args, System.services_timeout)
   end
 
   defp filter_stacktrace([{ Kernel, :raise, _, _ }|t]), do: t