From a0fca32b53146ca1c46eddb33fc55ee1c45900e9 Mon Sep 17 00:00:00 2001
From: s-ol <s-ol@users.noreply.github.com>
Date: Sun, 12 Apr 2020 19:36:18 +0200
Subject: builtin/print: support string events

---
 core/builtin.moon | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/core/builtin.moon b/core/builtin.moon
index babe2e4..abc6f49 100644
--- a/core/builtin.moon
+++ b/core/builtin.moon
@@ -5,7 +5,7 @@
 -- documentation.
 --
 -- @module builtin
-import Action, Op, FnDef, Input, val from require 'core.base'
+import Action, Op, FnDef, Input, val, evt from require 'core.base'
 import ValueStream, LiteralValue from require 'core.stream.value'
 import Result from require 'core.result'
 import Cell from require 'core.cell'
@@ -290,10 +290,15 @@ print = ValueStream.meta
 
   value: class extends Op
     setup: (inputs) =>
-      value = val.str\match inputs
+      value = (val.str / evt.str)\match inputs
       super value: Input.hot value
 
-    tick: => print @inputs.value!
+    tick: =>
+      if @inputs.value\metatype! == 'event'
+        for msg in *@inputs.value!
+          print msg
+      else
+        print @inputs.value!
 
 {
   :doc
-- 
cgit v1.2.3