mongodb.driver: fix for stricter stack effect checking
parent
00cef34d74
commit
b23ab401c8
|
@ -188,9 +188,7 @@ M: mdb-query-msg skip
|
|||
: asc ( key -- spec ) 1 2array ; inline
|
||||
: desc ( key -- spec ) -1 2array ; inline
|
||||
|
||||
GENERIC# sort 1 ( mdb-query-msg sort-quot -- mdb-query-msg )
|
||||
|
||||
M: mdb-query-msg sort
|
||||
: sort ( mdb-query-msg sort-quot -- mdb-query-msg )
|
||||
output>array [ 1array >hashtable ] map >>orderby ; inline
|
||||
|
||||
: key-spec ( spec-quot -- spec-assoc )
|
||||
|
|
Loading…
Reference in New Issue