<commit_before>
(module embed mzscheme
  (require mzlib/unit
           mzlib/contract)
  
  (require "sig.ss")
  
  (require "embed-unit.ss"
	   "embed-sig.ss")
  
  (define-values/invoke-unit/infer compiler:embed@)
  
  (provide/contract [make-embedding-executable
                     (opt-> (path-string?
                             any/c
                             any/c
                             (listof (list/c (or/c boolean? symbol?) any/c))
                             (listof path-string?)
                             any/c
                             (listof string?))
                            ((listof (cons/c symbol? any/c))
                             any/c
                             symbol?)
                            void?)]
                    [create-embedding-executable
                     (->* (path-string?)
                          (#:modules 
                           (lisof (list/c (or/c symbol? #f #t)
                                          module-path?))
                           #:configure-via-first-module? any/c	 
                           #:literal-files (listof path-string)	 
                           #:literal-expression any/c	 
                           #:literal-expressions (listof any/c)	 
                           #:cmdline (listof string?)
                           #:gracket? any/c
                           #:mred? any/c	 
                           #:variant (or/c '3m 'cgc)	 
                           #:aux (listof (cons/c symbol? any/c))
                           #:collects-path (or/c #f
                                                 path-string?
                                                 (listof path-string?))
                           #:launcher? any/c	 
                           #:verbose? any/c	 
                           #:compiler (-> any/c compiled-expression?)	 
                           #:expand-namespace namespace?
                           #:src-filter (-> path? any)
                           #:on-extension (or/c #f (-> path-string? boolean? any))	 
                           #:get-extra-imports (-> path? compiled-module? (listof module-path?)))
                          void?)])
  (provide write-module-bundle
           embedding-executable-is-directory?
           embedding-executable-is-actually-directory?
           embedding-executable-put-file-extension+style+filters
	   embedding-executable-add-suffix))
<commit_msg>fixed the contract for create-embedding-executable (and changed the file to the racket/base language)<commit_after>#lang scheme/base
(require scheme/unit
         scheme/contract)

(require "sig.ss")

(require "embed-unit.ss"
         "embed-sig.ss")

(define-values/invoke-unit/infer compiler:embed@)

(provide/contract [make-embedding-executable
                   (->* (path-string?
                         any/c
                         any/c
                         (listof (list/c (or/c boolean? symbol?) any/c))
                         (listof path-string?)
                         any/c
                         (listof string?))
                        ((listof (cons/c symbol? any/c))
                         any/c
                         symbol?)
                        void?)]
                  [create-embedding-executable
                   (->* (path-string?)
                        (#:modules 
                         (listof (list/c (or/c symbol? #f #t)
                                         (or/c path? module-path?)))
                         #:configure-via-first-module? any/c	 
                         #:literal-files (listof path-string?)	 
                         #:literal-expression any/c	 
                         #:literal-expressions (listof any/c)	 
                         #:cmdline (listof string?)
                         #:gracket? any/c
                         #:mred? any/c	 
                         #:variant (or/c '3m 'cgc)	 
                         #:aux (listof (cons/c symbol? any/c))
                         #:collects-path (or/c #f
                                               path-string?
                                               (listof path-string?))
                         #:launcher? any/c	 
                         #:verbose? any/c	 
                         #:compiler (-> any/c compiled-expression?)	 
                         #:expand-namespace namespace?
                         #:src-filter (-> path? any)
                         #:on-extension (or/c #f (-> path-string? boolean? any))	 
                         #:get-extra-imports (-> path? compiled-module-expression? (listof module-path?)))
                        void?)])

(provide write-module-bundle
         embedding-executable-is-directory?
         embedding-executable-is-actually-directory?
         embedding-executable-put-file-extension+style+filters
         embedding-executable-add-suffix)

{'fraction_non_alphanumeric': 0.10700428833979987, 'fraction_numerical': 0.0004084133142740453, 'mean_word_length': 0.9125341663412729, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 15, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 12, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5802118', 'n_tokens_mistral': 1262, 'n_tokens_neox': 1175, 'n_words': 231}