fixed sorting

db4
Sascha Matzke 2009-05-02 14:09:32 +02:00
parent 8aa655bae3
commit 6a3e15665a
1 changed files with 1 additions and 1 deletions

View File

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