fix a word in managed-server
parent
f0a556f0f3
commit
ecc2924eb6
|
@ -37,8 +37,8 @@ ERROR: no-such-client username ;
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
||||||
: (send-client) ( seq managed-client -- )
|
: (send-client) ( managed-client seq -- )
|
||||||
swap output-stream>> '[ _ print flush ] with-output-stream* ;
|
[ output-stream>> ] dip '[ _ print flush ] with-output-stream* ;
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue