diff --git a/forth/readln.fs b/forth/readln.fs index 9955185..d97b1fa 100644 --- 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 ) ; diff --git a/recipes/rc2014/pre.fs b/recipes/rc2014/pre.fs index 9391927..ce990dd 100644 --- a/recipes/rc2014/pre.fs +++ b/recipes/rc2014/pre.fs @@ -1,3 +1 @@ 96 RAM+ HERE ! -HERE @ 256 /MOD 8 PC! 8 PC! -CURRENT @ 256 /MOD 8 PC! 8 PC!