crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bin/retro - "bye" now uses halt instruction instead of unix:exit

Browse source 
FossilOrigin-Name: 44f755be1bb85e1a588aca9a5dfaaa1e652bc3fe56f3598cd7204cb84d3f2196
This commit is contained in:
crc 2021-06-21 12:09:55 +00:00
parent 5ec4cc202a
commit a75d0b21ac
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
interface/retro-unix.retro
View file

@ -57,7 +57,7 @@ startup flags passed.
~~~
'NoEcho var
:bye #0 unix:exit ;
:bye \ha...... ;
{{
'EOT var
@ -70,9 +70,9 @@ startup flags passed.
[ ASCII:SPACE eq? ] tri or or ;
(c-f) :eol? @EOT [ ASCII:CR eq? ] [ ASCII:LF eq? ] bi or ;
(s-sf) :valid? dup s:length n:strictly-positive? ;
(c-c) :check-eof dup [ #-1 eq? ] [ ASCII:EOT eq? ] bi or if: bye ;
(c-c) :check-eof dup [ #-1 eq? ] [ ASCII:EOT eq? ] bi or [ bye ] if ;
:bs buffer:get buffer:get drop-pair ;
(c-c) :check-bs dup [ ASCII:BS eq? ] [ ASCII:DEL eq? ] bi or if: bs ;
(c-c) :check-bs dup [ ASCII:BS eq? ] [ ASCII:DEL eq? ] bi or [ bs ] if ;
(c-c) :check check-eof check-bs ;
(-c) :character c:get dup buffer:add ;
(q-) :buffer [ TIB buffer:set call buffer:start ] buffer:preserve ;