Ameliorate race condition with web import.

This commit is contained in:
Brad Nelson
2022-11-19 22:37:29 -08:00
parent 80fb47f87b
commit 595ed9e829
2 changed files with 33 additions and 13 deletions

View File

@ -33,9 +33,13 @@ web definitions
0 0 a n 0 getItem { len }
here { buf } len allot
buf len a n 0 getItem len = assert
a n 0 removeItem
buf len evaluate
;
: ls 0 keyCount 0 do pad 80 i 0 getKey pad swap type cr loop ;
: rm bl parse 0 removeItem ;
: import s" _temp.fs" 2dup upload-file include-file ;
: yielding begin 50 ms yield again ;