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

mongodb.driver: fix for stricter stack effect checking

db4
Slava Pestov 2009-10-23 07:42:29 -05:00
parent 00cef34d74
commit b23ab401c8
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/mongodb/driver/driver.factor
View File

@ -188,9 +188,7 @@ M: mdb-query-msg skip
: asc ( key -- spec ) 1 2array ; inline : asc ( key -- spec ) 1 2array ; inline
: desc ( key -- spec ) -1 2array ; inline : desc ( key -- spec ) -1 2array ; inline
GENERIC# sort 1 ( mdb-query-msg sort-quot -- mdb-query-msg ) : sort ( mdb-query-msg sort-quot -- mdb-query-msg )
M: mdb-query-msg sort
output>array [ 1array >hashtable ] map >>orderby ; inline output>array [ 1array >hashtable ] map >>orderby ; inline
: key-spec ( spec-quot -- spec-assoc ) : key-spec ( spec-quot -- spec-assoc )