alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Drop filter

Browse Source
This commit is contained in:
Brad Nelson
2021-02-13 08:07:47 -08:00
parent c6cd498908
commit 0d1553f614
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ueforth/arduino/arduino.fs
View File

@ -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?