<commit_before>(fn warn-unused-functions ()
  (!= (defined-functions)
    (@ [hremove ! _]
       (+ (hashkeys (used-functions))
          (hashkeys (expander-macros (transpiler-macro-expander)))
          (hashkeys (expander-macros (codegen-expander)))
          *macros*))
    (@ [!= (symbol-name _)
         (| (tail? ! "_TREEXP")
            (head? ! "~")
            (warn "Unused function ~A." _))]
       (hashkeys !))))<commit_msg>Print one list of names of unused functions.<commit_after>(fn warn-unused-functions ()
  (!= (defined-functions)
    (@ [hremove ! _]
       (+ (hashkeys (used-functions))
          (hashkeys (expander-macros (transpiler-macro-expander)))
          (hashkeys (expander-macros (codegen-expander)))
          *macros*))
    (!? (mapcan [!= (symbol-name _)
                  (& (not (tail? ! "_TREEXP")
                          (head? ! "~"))
                     (list !))]
           (hashkeys !))
      (warn "Unused functions: ~A." (symbol-names-string !)))))
{'fraction_non_alphanumeric': 0.183, 'fraction_numerical': 0.0, 'mean_word_length': 2.0705521472392636, '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': '6098809', 'n_tokens_mistral': 318, 'n_tokens_neox': 314, 'n_words': 55}