Baby repl stub

src/ludus/core.clj

@@ -6,7 +6,8 @@
     [ludus.interpreter :as interpreter]
     [ludus.show :as show]
     [clojure.pprint :as pp]
-    [ludus.loader :as loader])
+    [ludus.loader :as loader]
+    [ludus.repl :as repl])
   (:gen-class))
 
 (defn- run [file source]
@@ -33,6 +34,4 @@
           source (loader/load-import file)]
       (run file source))
 
-    :else (do
-            (println "Usage: ludus [script]")
-            (System/exit 64))))
+    :else (repl/launch)))

src/ludus/repl.clj

@@ -0,0 +1,11 @@
+(ns ludus.repl
+	(:require 
+		[ludus.scanner :as scanner]
+		[ludus.parser :as parser]
+		[ludus.interpreter :as interpreter]
+		[ludus.show :as show]))
+
+(defn launch []
+	(println "Welcome to Ludus (v. 0.1.0-alpha)")
+	(println "ludus=>")
+	(System/exit 0))