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

io.server stack effect fixes

db4
Slava Pestov 2008-01-10 23:19:11 -05:00
parent 0a6aff794b
commit d870c7983a
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/io/server/server-tests.factor Normal file
View File

@ -0,0 +1,4 @@
IN: temporary
USING: tools.test.inference io.server ;
{ 1 0 } [ [ ] spawn-server ] unit-test-effect

3
extra/io/server/server.factor
View File

@ -48,7 +48,7 @@ SYMBOL: log-stream
dup log-client dup log-client
[ swap with-stream ] 2curry concurrency:spawn drop ; inline [ swap with-stream ] 2curry concurrency:spawn drop ; inline
: accept-loop ( server quot -- ) : accept-loop ( server quot -- server quot )
[ swap accept with-client ] 2keep accept-loop ; inline [ swap accept with-client ] 2keep accept-loop ; inline
: server-loop ( server quot -- ) : server-loop ( server quot -- )
@ -62,6 +62,7 @@ SYMBOL: log-stream
] [ ] [
"Cannot spawn server: " print "Cannot spawn server: " print
print-error print-error
2drop
] recover ; inline ] recover ; inline
: local-server ( port -- seq ) : local-server ( port -- seq )