<commit_before>(describe simple-let
          (== (let ())
              nil)
          (== (let ()
                42)
              42))

(describe let-with-multiple-expr-body
          (== (let ()
                1
                2)
              2))

(describe let-bindings
          (== (let* ((x 1)
                     (y 2))
                (+ x y))
              3)
          (let ((x 2))
            (== (let ((x 1)
                      (y (+ x 1)))
                  y)
                3)))


(describe let-binding-scope
          (== (begin (let ((zz 2)) zz)
                     zz)
              nil))

(describe named-let
          (== (let loop
                ((numbers ’(3 -2 1 6 -5))
                 (nonneg ’())
                 (neg ’()))
                (cond ((null? numbers)
                       (list nonneg neg))
                      ((>= (car numbers) 0)
                       (loop (cdr numbers)
                          (cons (car numbers) nonneg)
                          neg))
                      (else
                       (loop (cdr numbers)
                          nonneg
                          (cons (car numbers) neg)))))<commit_msg>Fix typo (copy-paste single quotes).<commit_after>(describe simple-let
          (== (let ())
              nil)
          (== (let ()
                42)
              42))

(describe let-with-multiple-expr-body
          (== (let ()
                1
                2)
              2))

(describe let-bindings
          (== (let* ((x 1)
                     (y 2))
                (+ x y))
              3)
          (let ((x 2))
            (== (let ((x 1)
                      (y (+ x 1)))
                  y)
                3)))


(describe let-binding-scope
          (== (begin (let ((zz 2)) zz)
                     zz)
              nil))

(describe named-let
          (== (let loop
                ((numbers '(3 -2 1 6 -5))
                 (nonneg '())
                 (neg '()))
                (cond ((null? numbers)
                       (list nonneg neg))
                      ((>= (car numbers) 0)
                       (loop (cdr numbers)
                          (cons (car numbers) nonneg)
                          neg))
                      (else
                       (loop (cdr numbers)
                          nonneg
                          (cons (car numbers) neg)))))
{'fraction_non_alphanumeric': 0.12932832707551106, 'fraction_numerical': 0.017521902377972465, 'mean_word_length': 0.685172171468728, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 5, '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': '3580389', 'n_tokens_mistral': 663, 'n_tokens_neox': 599, 'n_words': 165}