From 9b4b8bd1910787b4380404ac7315ae65763dcac7 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Mon, 8 Jan 2018 15:29:24 +0100 Subject: Swicth to \n as EOL --- j1eforth/j1.4th | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'j1eforth') diff --git a/j1eforth/j1.4th b/j1eforth/j1.4th index e9ea766..7ce4e7a 100644 --- a/j1eforth/j1.4th +++ b/j1eforth/j1.4th @@ -504,7 +504,7 @@ t: key ( -- c ) begin ?key until f000 literal @ t; -t: nuf? ( -- t ) ?key dup if drop key =cr literal = then exit t; +t: nuf? ( -- t ) ?key dup if drop key =lf literal = then exit t; t: space ( -- ) bl emit t; t: spaces ( +n -- ) 0 literal max for aft space then next t; t: type ( b u -- ) for aft count emit then next drop t; @@ -580,7 +580,7 @@ t: ^h ( bot eot cur -- bot eot cur ) t: tap ( bot eot cur c -- bot eot cur ) dup emit over c! 1+ t; t: ktap ( bot eot cur c -- bot eot cur ) - dup =cr literal xor if + dup =lf literal xor if =bksp literal xor if bl tap exit then ^h exit -- cgit v1.2.3