- lux/Function is now an abstract class with 4 versions of apply, to improve performance when calling functions.

1 files changed, 3 insertions, 6 deletions

diff --git a/src/lux/base.clj b/src/lux/base.clj
index b921fa86c..02bd55112 100644
--- a/src/lux/base.clj
+++ b/src/lux/base.clj
@@ -716,12 +716,6 @@
           (.invoke define-class this (to-array [class-name bytecode (int 0) (int (alength bytecode))]))
           (throw (IllegalStateException. (str "[Class Loader] Unknown class: " class-name))))))))
 
-;; (deftype Host
-;;   (& #writer         (^ org.objectweb.asm.ClassWriter)
-;;      #loader         (^ java.net.URLClassLoader)
-;;      #classes        (^ clojure.lang.Atom)
-;;      #catching       (List Text)
-;;      #module-states  (List (, Text ModuleState))))
 (defn host [_]
   (let [store (atom {})]
     (T [;; "lux;writer"
@@ -1212,3 +1206,6 @@
 
     _
     (assert false (adt->text xs))))
+
+(defn |partition [n xs]
+  (->> xs ->seq (partition-all n) (map ->list) ->list))