From 624a27200c2c94d09f05b372f0912cc7b9d98a7f Mon Sep 17 00:00:00 2001
From: Nicola Pisanti <nicola@npisanti.com>
Date: Mon, 10 Jun 2019 22:57:01 +0200
Subject: [PATCH] updates L to match orcaJS, fixes #41

---
 sim.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/sim.c b/sim.c
index 06d25b6..7fd48f6 100644
--- a/sim.c
+++ b/sim.c
@@ -557,7 +557,12 @@ BEGIN_OPERATOR(loop)
   LOWERCASE_REQUIRES_BANG;
   PORT(0, -2, IN | PARAM);
   PORT(0, -1, IN | PARAM);
-  Usz rate = index_of(PEEK(0, -2));
+  PORT(0, 1, IN | PARAM);
+  PORT(1, 0, OUT);
+  Glyph g = PEEK(0, -2);
+  Usz rate = 1;
+  if (g != '.' && g != '*')
+    rate = index_of(g);
   Usz len = safe_index_of(PEEK(0, -1));
   if (len > width - x - 1)
     len = width - x - 1;
@@ -577,6 +582,7 @@ BEGIN_OPERATOR(loop)
   for (Usz i = 0; i < len; ++i) {
     gs[i] = buff[i];
   }
+  POKE(1, 0, PEEK(0, 1));
 END_OPERATOR
 
 BEGIN_OPERATOR(multiply)