Only print header info in REPL mode

[jackhill/mal.git] / elixir / lib / mix / tasks / step7_quote.ex

diff --git a/elixir/lib/mix/tasks/step7_quote.ex b/elixir/lib/mix/tasks/step7_quote.ex
index 7b92730..6939519 100644 (file)
--- a/elixir/lib/mix/tasks/step7_quote.ex
+++ b/elixir/lib/mix/tasks/step7_quote.ex
@@ -6,12 +6,10 @@ defmodule Mix.Tasks.Step7Quote do
     env = Mal.Env.new()
     Mal.Env.merge(env, Mal.Core.namespace)
     bootstrap(args, env)
-    load_file(args, env)
     loop(env)
   end
 
-  defp load_file([], _env), do: nil
-  defp load_file([file_name | _args], env) do
+  defp load_file(file_name, env) do
     read_eval_print("""
       (load-file "#{file_name}")
       """, env)
@@ -37,8 +35,12 @@ defmodule Mix.Tasks.Step7Quote do
     end})
 
     case args do
-      [_file_name | rest] -> Mal.Env.set(env, "*ARGV*", list(rest))
-      [] -> Mal.Env.set(env, "*ARGV*", list([]))
+      [file_name | rest] ->
+        Mal.Env.set(env, "*ARGV*", list(rest))
+        load_file(file_name, env)
+
+      [] ->
+        Mal.Env.set(env, "*ARGV*", list([]))
     end
   end