From 81f07797dc6e67ef9f3f1b82a80565ccc0e12710 Mon Sep 17 00:00:00 2001 From: Koichi Nakamura Date: Mon, 4 Jan 2021 15:42:14 +0900 Subject: [PATCH] Rename SUCCESS to success --- bootstrap.fs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/bootstrap.fs b/bootstrap.fs index 8441aa5..577c234 100644 --- a/bootstrap.fs +++ b/bootstrap.fs @@ -869,7 +869,7 @@ create exception-marker execute ; -: SUCCESS 0 ; +: success 0 ; : throw ( w -- ) ?dup unless exit then \ do nothing if no error @@ -1414,7 +1414,7 @@ R/O stdin_ file>fam c! key 2 tuck c! s++ repeat 2drop - r> SUCCESS \ 0: no-error + r> success \ 0: no-error ; stdin_ file>read ! create stdout_ file% %allot drop @@ -1423,8 +1423,9 @@ W/O stdout_ file>fam c! \ Write u byte from c-addr to stdout. \ This is ad-hoc implementation for bootstrap process. :noname ( c-addr u file -- e ) - drop type SUCCESS + drop type success ; stdout_ file>write ! ' not-implemented stdout_ file>read ! -' not-implemented stdout_ file>flush ! +\ do nothing +:noname drop success ; stdout_ file>flush !