readln: fix typo

2020-04-04 14:26:41 -04:00 · 2020-04-04 14:26:41 -04:00 · 32b420b19c
parent 5be9b9cd3e
commit 32b420b19c
1 changed files with 1 additions and 1 deletions
--- a/forth/readln.fs
+++ b/forth/readln.fs
@ -76,5 +76,5 @@
    ( not EOL? good, inc and return )
    DUP IF 1 IN> +! EXIT THEN   ( c )
    ( EOL ? readline. we still return typed char though )
-    (rdln) (<c)                 ( c )
+    (rdln) (c<)                 ( c )
 ;