Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-14 08:01:27 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Rename SUCCESS to success

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-04 15:42:14 +09:00
parent e30be2e802
commit 81f07797dc
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
bootstrap.fs
View file

@ -869,7 +869,7 @@ create exception-marker
execute execute
; ;
: SUCCESS 0 ; : success 0 ;
: throw ( w -- ) : throw ( w -- )
?dup unless exit then \ do nothing if no error ?dup unless exit then \ do nothing if no error
@ -1414,7 +1414,7 @@ R/O stdin_ file>fam c!
key 2 tuck c! s++ key 2 tuck c! s++
repeat repeat
2drop 2drop
r> SUCCESS \ 0: no-error r> success \ 0: no-error
; stdin_ file>read ! ; stdin_ file>read !
create stdout_ file% %allot drop create stdout_ file% %allot drop
@ -1423,8 +1423,9 @@ W/O stdout_ file>fam c!
\ Write u byte from c-addr to stdout. \ Write u byte from c-addr to stdout.
\ This is ad-hoc implementation for bootstrap process. \ This is ad-hoc implementation for bootstrap process.
:noname ( c-addr u file -- e ) :noname ( c-addr u file -- e )
drop type SUCCESS drop type success
; stdout_ file>write ! ; stdout_ file>write !
' not-implemented stdout_ file>read ! ' not-implemented stdout_ file>read !
' not-implemented stdout_ file>flush !
\ do nothing
:noname drop success ; stdout_ file>flush !