alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Simplify terminate + bye + fix build.

Browse Source
This commit is contained in:
Brad Nelson
2022-12-31 21:02:04 -08:00
parent d60606b4c8
commit 1c500c2233
11 changed files with 14 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
web/platform.fs
View File

@ -598,7 +598,7 @@ JSWORD: web-key?-raw { -- f }
return context.inbuffer.length ? -1 : 0;
~
JSWORD: terminate { retval }
JSWORD: web-terminate { retval }
if (globalObj.quit) {
quit(retval);
} else {
@ -918,7 +918,6 @@ JSWORD: random { n -- n }
forth definitions web
: bye 0 terminate ;
: ms-ticks ms-ticks ;
forth definitions

1
web/utils.fs
View File

@ -20,6 +20,7 @@ web definitions
' web-key is key
: web-key? ( -- f ) pause web-key?-raw ;
' web-key? is key?
' web-terminate is terminate
: upload-file ( a n -- )
upload-start