steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Better error messages in io.launcher

db4
Slava Pestov 2008-09-19 03:14:11 -05:00
parent 7155e42251
commit 0a8980d37e
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/io/launcher/launcher.factor
View File

@ -101,8 +101,10 @@ GENERIC: >process ( obj -- process )
ERROR: process-already-started process ; ERROR: process-already-started process ;
M: process-already-started summary M: process-already-started error.
drop "Process has already been started once" ; "Process has already been started" print nl
"Launch descriptor:" print nl
process>> . ;
M: process >process M: process >process
dup process-started? [ dup process-started? [
@ -118,6 +120,13 @@ HOOK: run-process* io-backend ( process -- handle )
ERROR: process-was-killed process ; ERROR: process-was-killed process ;
M: process-was-killed error.
"Process was killed as a result of a call to" print
"kill-process, or a timeout" print
nl
"Launch descriptor:" print nl
process>> . ;
: wait-for-process ( process -- status ) : wait-for-process ( process -- status )
[ [
dup handle>> dup handle>>