<commit_before>;;;;; tré – Copyright (c) 2010–2012 <NAME> <<EMAIL>>

(defvar *%property-list-tmp* nil)

(defun %property-list-0 (key val)
  (acons! key val *%property-list-tmp*))

(dont-inline %property-list)

(defun %property-list (hash)
  (= *%property-list-tmp* nil)
  (%setq nil (%transpiler-native
                 "for (var k in " hash ") "
                     "if (k != \"" '__tre-object-id "\" && k != \"" '__tre-test "\") "
                         ,(compiled-function-name-string *js-transpiler* '%property-list-0) "(typeof k == \"string\" ? (OBJKEYS[k] || k) : k, " hash "[k]);"))
  (reverse *%property-list-tmp*))
<commit_msg>Use *CURRENT-TRANSPILER*.<commit_after>;;;;; tré – Copyright (c) 2010–2012 <NAME> <<EMAIL>>

(defvar *%property-list-tmp* nil)

(defun %property-list-0 (key val)
  (acons! key val *%property-list-tmp*))

(dont-inline %property-list)

(defun %property-list (hash)
  (= *%property-list-tmp* nil)
  (%setq nil (%transpiler-native
                 "for (var k in " hash ") "
                     "if (k != \"" '__tre-object-id "\" && k != \"" '__tre-test "\") "
                         ,(compiled-function-name-string *current-transpiler* '%property-list-0) "(typeof k == \"string\" ? (OBJKEYS[k] || k) : k, " hash "[k]);"))
  (reverse *%property-list-tmp*))

{'fraction_non_alphanumeric': 0.22393822393822393, 'fraction_numerical': 0.015444015444015444, 'mean_word_length': 2.702857142857143, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 9, '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': '3836608', 'n_tokens_mistral': 497, 'n_tokens_neox': 474, 'n_words': 105}