From 7152e3b276760d30b8d45f8e38ab75e1c98ca258 Mon Sep 17 00:00:00 2001
From: Scott Bell <scott@sctsm.com>
Date: Sat, 5 Dec 2015 09:05:31 -0800
Subject: [PATCH] Minor whitespace

---
 bin/lumen.lua | 4 ----
 main.l        | 6 ++++--
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/bin/lumen.lua b/bin/lumen.lua
index 9479dd9..34485d2 100644
--- a/bin/lumen.lua
+++ b/bin/lumen.lua
@@ -553,10 +553,6 @@ function setenv(k, ...)
     return(frame[k])
   end
 end
-function _37message_handler(msg)
-  local i = search(msg, ": ")
-  return(clip(msg, i + 2))
-end
 local math = math
 abs = math.abs
 acos = math.acos
diff --git a/main.l b/main.l
index 5e5aa38..9fda608 100644
--- a/main.l
+++ b/main.l
@@ -6,8 +6,10 @@
 
 (define eval-print (form)
   (let ((ok x trace) (guard ((get compiler 'eval) form)))
-    (if (not ok) (print (target js: trace
-                                lua: (cat "error: " x "\n" trace)))
+    (if (not ok)
+        (target
+          js: (print trace)
+          lua: (print (cat "error: " x "\n" trace)))
         (is? x) (print (string x)))))
 
 (define rep (s)