Minor whitespace

sctb · Dec 5, 2015 · 7152e3b · 7152e3b
1 parent 6f59319
commit 7152e3b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git 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
@@ -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)