izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity

readln: fix typo

This commit is contained in:
Virgil Dupras 2020-04-04 14:26:41 -04:00
parent 5be9b9cd3e
commit 32b420b19c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
forth/readln.fs
View File

@ -76,5 +76,5 @@
( not EOL? good, inc and return ) ( not EOL? good, inc and return )
DUP IF 1 IN> +! EXIT THEN ( c ) DUP IF 1 IN> +! EXIT THEN ( c )
( EOL ? readline. we still return typed char though ) ( EOL ? readline. we still return typed char though )
(rdln) (<c) ( c ) (rdln) (c<) ( c )
; ;