basis/models/sort/sort.factor

   1 ! Copyright (C) 2009 Slava Pestov
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: sorting models.arrow.smart fry ;
   4 IN: models.sort
   5
   6 : <sort> ( values sort -- model )
   7     [ '[ _ call( obj1 obj2 -- <=> ) ] sort ] <smart-arrow> ; inline