From 3d50159bdef0535bc8c5b0bf1c5f72796417a9ae Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Fri, 2 Apr 2021 15:26:21 -0600
Subject: [PATCH] [vscode] error message when evalString fails to compile kiss

---
 projects/kiss-vscode/config/KissConfig.kiss | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/projects/kiss-vscode/config/KissConfig.kiss b/projects/kiss-vscode/config/KissConfig.kiss
index d48a3350..b9d1ed10 100644
--- a/projects/kiss-vscode/config/KissConfig.kiss
+++ b/projects/kiss-vscode/config/KissConfig.kiss
@@ -54,7 +54,10 @@
  */
 
 (defun :String convertToHScript [kissStr]
-    (.toString (the Buffer .stdout (ChildProcess.spawnSync "haxelib" ["run" "kiss" "--all"] (object input kissStr)))))
+    (let [kissProcess (ChildProcess.spawnSync "haxelib" ["run" "kiss" "--all"] (object input kissStr))]
+        (if !(= kissProcess.status 0)
+                {(errorMessage "failed to compile ${kissStr}: $(.toString (the Buffer .stderr kissProcess))") ""}
+            (.toString (the Buffer .stdout kissProcess)))))
 
 (defun :Dynamic evalString [:String kissStr]
     (try
@@ -62,7 +65,6 @@
                 (parser.parseString
                     (convertToHScript kissStr)))
         (catch [e]
-            (trace "fuckkkkk")
             (errorMessage "Error `${e}` from $kissStr")
             null)))
 
@@ -102,6 +104,10 @@
     (dictSet commands description command))
 
 (defun :Void registerBuiltins []
+    (set Prelude.print
+        ->[v] {
+            (infoMessage (Std.string v))
+            v})
     (registerCommand "Rerun last command" runLastCommand)
     (registerCommand "Run a keyboard shortcut command" runKeyboardShortcut)
     (registerCommand "Evaluate and print a Kiss expression" evalAndPrint))