mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 15:10:55 +11:00
af39b37dd1
This is more than cosmetic, it's also highly usable. The presence or absence of the "ok" message allows us to know whether the command aborted. Previously, the "> " prompt appeared when the system expected a prompt in the INTERPRET context, whether the previous command aborted or not. Also, this allows us to get rid of that ugly FLAGS global variable.
10 lines
143 B
Plaintext
10 lines
143 B
Plaintext
: INTERPRET
|
|
BEGIN
|
|
WORD
|
|
(find)
|
|
NOT IF (parse*) @ THEN EXECUTE
|
|
C<? NOT IF LIT< (ok) (find) IF EXECUTE THEN THEN
|
|
AGAIN
|
|
;
|
|
|