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

fix a word in managed-server

Doug Coleman 2009-05-30 13:51:03 -05:00
parent 45606081be
commit a06d8bfc9a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/managed-server/managed-server.factor
View File

@ -37,8 +37,8 @@ ERROR: no-such-client username ;
<PRIVATE
: (send-client) ( seq managed-client -- )
swap output-stream>> '[ _ print flush ] with-output-stream* ;
: (send-client) ( managed-client seq -- )
[ output-stream>> ] dip '[ _ print flush ] with-output-stream* ;
PRIVATE>