Author: | mrjbq7 |
---|---|
Mode: | factor |
Date: | Wed, 30 Mar 2011 17:39:19 |
GENERIC: sort-keys ( obj -- sortedseq ) M: object sort-keys >alist sort-keys ; M: sequence sort-keys [ first ] sort-with ; GENERIC: sort-values ( obj -- sortedseq ) M: object sort-values >alist sort-values ; M: sequence sort-values [ second ] sort-with ;