fix compiling stdin not working

xkxx · xkxx · commit 35cdbccdfc0e · 2014-05-06T18:55:46.000-07:00
diff --git a/src/wisp.wisp b/src/wisp.wisp
@@ -20,7 +20,8 @@
   [options]
   (with-stream-content process.stdin
                        compile-string
-                       options))
+                       (conj {} options)))
+;; (conj {:source-uri options}) causes segfault for some reason
 
 (defn compile-file
   [path options]
@@ -33,13 +34,12 @@
   [source options]
   (let [channel (or (:print options) :code)
         output (compile source options)
-        content (if (= channel :code)
-                  (:code output)
-                  (JSON.stringify (get output channel) 2 2))]
-    (if (:ast options) (map (fn [item]
-                              (.write process.stdout
-                                      (str (pr-str item.form) "\n")))
-                              output.ast))
+        content (cond
+                  (= channel :code) (:code output)
+                  (= channel :forms) (map (fn [item]
+                                            (str (pr-str (:form item)) "\n"))
+                                          (:ast output))
+                  :else (pr-str (get output channel) 2 2))]
     (if (and (:output options) (:source-uri options) content)
       (writeFileSync (path.join (:output options) ;; `join` relies on `path`
                            (str (basename (:source-uri options) ".wisp") ".js"))
