Added '--run <file>' option

jacereda · jacereda · commit 02f9c5ec963d · 2014-04-07T00:10:58.000+02:00
diff --git a/src/wisp.wisp b/src/wisp.wisp
@@ -86,7 +86,8 @@
 (defn main
   []
   (let [options (parse-params (drop 2 process.argv))]
-    (cond (not process.stdin.isTTY) (compile-stdin options)
+    (cond (:run options) (run (:run options))
+          (not process.stdin.isTTY) (compile-stdin options)
           (< (count process.argv) 3) (start-repl)
           (and (= (count process.argv) 3)
                (not (flag? (last process.argv)))) (run (last process.argv))
