From 0d1553f6148f1e900eb69bf5e049b55252fea309 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Sat, 13 Feb 2021 08:07:47 -0800
Subject: [PATCH] Drop filter

---
 ueforth/arduino/arduino.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ueforth/arduino/arduino.fs b/ueforth/arduino/arduino.fs
index 3b3fb2b..ed57aa3 100644
--- a/ueforth/arduino/arduino.fs
+++ b/ueforth/arduino/arduino.fs
@@ -5,7 +5,7 @@ internals definitions
 : arduino-type ( a n -- ) Serial.write drop ;
 ' arduino-type is type
 : arduino-key ( -- n )
-   begin Serial.available if 0 >r rp@ 1 Serial.readBytes drop r> dup 13 <> if exit then then again ;
+   begin Serial.available until 0 >r rp@ 1 Serial.readBytes drop r> ;
 ' arduino-key is key
 : arduino-key? ( -- n ) Serial.available ;
 ' arduino-key? is key?