<commit_before>(ns leiningen.compile
  (:use [clojure.contrib.java-utils :only [file]]
        [clojure.contrib.find-namespaces :only [find-namespaces-in-dir]])
  (:refer-clojure :exclude [compile]))

(defn compile
  "Compile the namespaces specified in build.clj or all namespaces in src/
  if none are provided."
  [project]
  (.mkdir (file (:root project) "classes"))
  (doseq [n (or (:namespaces project)
                (find-namespaces-in-dir (file (:root project) "src")))]
    (compile n)))<commit_msg>Bind *compile-path*, not sure how it becomes unbound.<commit_after>(ns leiningen.compile
  (:use [clojure.contrib.java-utils :only [file]]
        [clojure.contrib.find-namespaces :only [find-namespaces-in-dir]])
  (:refer-clojure :exclude [compile]))

(defn compile
  "Compile the namespaces specified in build.clj or all namespaces in src/
  if none are provided."
  [project]
  ;; TODO: not sure why this is necessary
  (binding [*compile-path* "classes/"]
    (.mkdir (file (:root project) "classes"))
    (doseq [n (or (:namespaces project)
                  (find-namespaces-in-dir (file (:root project) "src")))]
      (println "Compiling" n)
      (clojure.core/compile n))))
{'fraction_non_alphanumeric': 0.14920368818105617, 'fraction_numerical': 0.0, 'mean_word_length': 3.5923076923076924, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4089417', 'n_tokens_mistral': 403, 'n_tokens_neox': 382, 'n_words': 113}