From b23ab401c8240a73b44cf68c6244a24e51c4e5b5 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 23 Oct 2009 07:42:29 -0500 Subject: [PATCH] mongodb.driver: fix for stricter stack effect checking --- extra/mongodb/driver/driver.factor | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/extra/mongodb/driver/driver.factor b/extra/mongodb/driver/driver.factor index 574724dfaf..9538972582 100644 --- a/extra/mongodb/driver/driver.factor +++ b/extra/mongodb/driver/driver.factor @@ -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 )