Commit e2e9fe7a authored by Bernd Paysan's avatar Bernd Paysan

Fix race condition

parent b12c955c
......@@ -651,8 +651,7 @@ in net2o : ok ( tag -- ) \ ." ok" forth:cr
THEN
string-stack $free object-stack $free nest-stack $free
[: outflag @ >r cmdreset init-reply do-cmd-loop
r> outflag ! cmd-send? ;] cmdlock c-section
o IF wait-task @ ?dup-IF event> THEN THEN ;
r> outflag ! cmd-send? ;] cmdlock c-section ;
\ nested commands
......
......@@ -1616,7 +1616,8 @@ User remote?
$error-id $off \ no error id so far
stateless# outflag ! tmp-perm off
inbuf packet-data cmd-exec
update-cdmap net2o:update-key remote? off ;
update-cdmap net2o:update-key remote? off
o IF wait-task @ ?dup-IF event> THEN THEN ;
scope{ mapc
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment