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

fixed ismastercmd

db4
Sascha Matzke 2009-01-31 16:06:49 +01:00
parent bd6be4fe27
commit 0e2b60bf89
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mongodb/connection/connection.factor
View File

@ -22,8 +22,8 @@ TUPLE: mdb name nodes collections ;
<PRIVATE <PRIVATE
: ismaster-cmd ( node -- result ) : ismaster-cmd ( node -- result )
binary "admin.$cmd" H{ { "ismaster" 1 } } <mdb-query-one-msg> binary "admin.$cmd" H{ { "ismaster" 1 } } <mdb-query-msg>
'[ _ write-message read-message ] with-client 1 >>return# '[ _ write-message read-message ] with-client
objects>> first ; objects>> first ;
: split-host-str ( hoststr -- host port ) : split-host-str ( hoststr -- host port )