<commit_before>;;----------------------------------------------------------------------
;; mzscheme: provide everything

(module mzscheme '#%kernel
  (#%require racket/private/more-scheme
             racket/private/misc
             racket/private/letstx-scheme
             racket/private/stxcase-scheme
             racket/private/stx
             racket/private/stxmz-body
             racket/private/qqstx
             racket/private/define
             racket/private/old-ds
             racket/private/old-rp
             racket/private/old-if
             racket/private/old-procs
             racket/private/map ; shadows #%kernel bindings
             racket/private/kernstruct
             racket/private/promise
             racket/private/cert
             (only racket/private/cond old-cond)
             ;; shadows #%kernel bindings:
             (only racket/private/list 
                   assq assv assoc reverse
                   memq memv member) 
             racket/tcp
             racket/udp
             '#%builtin) ; so it's attached

  (#%provide require require-for-syntax require-for-template require-for-label
             provide provide-for-syntax provide-for-label
             (all-from-except racket/private/more-scheme case old-case 
                              log-fatal log-error log-warning log-info log-debug
                              hash-update hash-update!)
             (rename old-case case)
             (all-from racket/private/misc)
             (all-from-except racket/private/stxcase-scheme _)
             (all-from-except racket/private/letstx-scheme 
                              -define -define-syntax -define-struct
                              cond old-cond else =>)
             (rename old-cond cond)
             define-struct let-struct
             identifier? ;; from racket/private/stx
             (all-from racket/private/cert)
             (all-from racket/private/qqstx)
             (all-from racket/private/define)
             (all-from racket/private/kernstruct)
             force delay promise?
             (all-from-except '#%kernel #%module-begin #%datum 
                              if make-empty-namespace
                              syntax->datum datum->syntax
                              free-identifier=?
                              free-transformer-identifier=?
                              free-template-identifier=?
                              free-label-identifier=?
                              vector-copy!
                              thread-send
                              thread-receive
                              thread-try-receive
                              thread-receive-evt
                              make-hash make-immutable-hash make-weak-hash
                              make-hasheq make-immutable-hasheq make-weak-hasheq
                              hash? hash-eq? hash-weak?
                              hash-ref hash-set! hash-set
                              hash-remove! hash-remove 
                              hash-copy hash-count
                              hash-map hash-for-each 
                              hash-iterate-first hash-iterate-next
                              hash-iterate-value hash-iterate-key
                              log-message log-level? make-logger logger? current-logger logger-name
                              make-log-receiver log-receiver?
                              prop:incomplete-arity)<commit_msg>remove `datum', etc. from `mzscheme'<commit_after>;;----------------------------------------------------------------------
;; mzscheme: provide everything

(module mzscheme '#%kernel
  (#%require racket/private/more-scheme
             racket/private/misc
             racket/private/letstx-scheme
             racket/private/stxcase-scheme
             racket/private/stx
             racket/private/stxmz-body
             racket/private/qqstx
             racket/private/define
             racket/private/old-ds
             racket/private/old-rp
             racket/private/old-if
             racket/private/old-procs
             racket/private/map ; shadows #%kernel bindings
             racket/private/kernstruct
             racket/private/promise
             racket/private/cert
             (only racket/private/cond old-cond)
             ;; shadows #%kernel bindings:
             (only racket/private/list 
                   assq assv assoc reverse
                   memq memv member) 
             racket/tcp
             racket/udp
             '#%builtin) ; so it's attached

  (#%provide require require-for-syntax require-for-template require-for-label
             provide provide-for-syntax provide-for-label
             (all-from-except racket/private/more-scheme case old-case 
                              log-fatal log-error log-warning log-info log-debug
                              hash-update hash-update!)
             (rename old-case case)
             (all-from racket/private/misc)
             (all-from-except racket/private/stxcase-scheme _ datum datum-case with-datum)
             (all-from-except racket/private/letstx-scheme 
                              -define -define-syntax -define-struct
                              cond old-cond else =>)
             (rename old-cond cond)
             define-struct let-struct
             identifier? ;; from racket/private/stx
             (all-from racket/private/cert)
             (all-from-except racket/private/qqstx quasidatum undatum undatum-splicing)
             (all-from racket/private/define)
             (all-from racket/private/kernstruct)
             force delay promise?
             (all-from-except '#%kernel #%module-begin #%datum 
                              if make-empty-namespace
                              syntax->datum datum->syntax
                              free-identifier=?
                              free-transformer-identifier=?
                              free-template-identifier=?
                              free-label-identifier=?
                              vector-copy!
                              thread-send
                              thread-receive
                              thread-try-receive
                              thread-receive-evt
                              make-hash make-immutable-hash make-weak-hash
                              make-hasheq make-immutable-hasheq make-weak-hasheq
                              hash? hash-eq? hash-weak?
                              hash-ref hash-set! hash-set
                              hash-remove! hash-remove 
                              hash-copy hash-count
                              hash-map hash-for-each 
                              hash-iterate-first hash-iterate-next
                              hash-iterate-value hash-iterate-key
                              log-message log-level? make-logger logger? current-logger logger-name
                              make-log-receiver log-receiver?
                              prop:incomplete-arity)
{'fraction_non_alphanumeric': 0.09440361786319955, 'fraction_numerical': 0.0, 'mean_word_length': 1.0465587044534412, 'pattern_counts': {'":': 0, '<': 3, '<?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': 2, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5909983', 'n_tokens_mistral': 1714, 'n_tokens_neox': 1634, 'n_words': 307}