<commit_before>;;;;; Transpiler: TRE to JavaScript
;;;;; Copyright (c) 2008-2009 <NAME> <<EMAIL>>
;;;;;
;;;;; Extra code-generating macros to avoid costly function calls.

(define-js-binary + "+")
(define-js-binary string-concat "+")
(define-js-binary - "-")
(define-js-binary / "/")
(define-js-binary * "*")
;(define-js-binary = "==") ; XXX these will give us trouble with chars.
;(define-js-binary < "<")
;(define-js-binary > ">")
(define-js-binary string= "==")
(define-js-binary >> ">>")
(define-js-binary << "<<")
(define-js-binary mod "%")
(define-js-binary logxor "^")
(define-js-binary eq "===")
(define-js-binary bit-and "&")
(define-js-binary bit-or "|")

(define-js-macro identity (x)
  x)

(define-js-macro car (x)
  `("(" ,x " ? " ,x "." ,(symbol-name (transpiler-obfuscate-symbol *js-transpiler* '_)) " : null)"))

(define-js-macro cdr (x)
  `("(" ,x " ? " ,x "." ,(symbol-name (transpiler-obfuscate-symbol *js-transpiler* '__)) " : null)"))<commit_msg>CAR, CDR: Inlined versions returned NIL for 0 - fixed.<commit_after>;;;;; Transpiler: TRE to JavaScript
;;;;; Copyright (c) 2008-2009 <NAME> <<EMAIL>>
;;;;;
;;;;; Extra code-generating macros to avoid costly function calls.

(define-js-binary + "+")
(define-js-binary string-concat "+")
(define-js-binary - "-")
(define-js-binary / "/")
(define-js-binary * "*")
;(define-js-binary = "==") ; XXX these will give us trouble with chars.
;(define-js-binary < "<")
;(define-js-binary > ">")
(define-js-binary string= "==")
(define-js-binary >> ">>")
(define-js-binary << "<<")
(define-js-binary mod "%")
(define-js-binary logxor "^")
(define-js-binary eq "===")
(define-js-binary bit-and "&")
(define-js-binary bit-or "|")

(define-js-macro identity (x)
  x)

(define-js-macro car (x)
  `("(" ,x " === null ? null : " ,x "." ,(symbol-name (transpiler-obfuscate-symbol *js-transpiler* '_)) ")"))

(define-js-macro cdr (x)
  `("(" ,x " === null ? null : " ,x "." ,(symbol-name (transpiler-obfuscate-symbol *js-transpiler* '__)) ")"))
{'fraction_non_alphanumeric': 0.2568991470145509, 'fraction_numerical': 0.008529854490717512, 'mean_word_length': 4.192708333333333, 'pattern_counts': {'":': 0, '<': 21, '<?xml version=': 0, '>': 21, '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': '3310000', 'n_tokens_mistral': 801, 'n_tokens_neox': 760, 'n_words': 151}