boot.rg in rouge-lang-0.0.3

- old
+ new

@@ -356,9 +356,14 @@
    `(-> (-> ~x ~f) ~@rest)))
 
 (defn re-pattern [s]
   (.compile Regexp s))
 
+(defn sort-by [keyfn coll]
+  (-> coll
+      .to_a
+      (.sort_by | keyfn)))
+
 (ns rouge.test
   (:use rouge.core ruby))
 
 (def ^:dynamic *test-level* [])
 (def *tests-passed* (atom 0))