<commit_before>
(module sig mzscheme

  (require (lib "unit.ss"))

  (provide compiler:option^
	   compiler^
	   compiler:inner^
	   compiler:linker^)

  ;; Compiler options
  (define-signature compiler:option^
     (verbose ; default = #f
   
      setup-prefix ; string to embed in public names;
                   ; used mainly for compiling extensions
                   ;  with the collection name so that 
                   ;  cross-extension conflicts are less
                   ;  likely in architectures that expose
                   ;  the public names of loaded extensions
                   ; default = ""
   
      clean-intermediate-files ; #t => keep intermediate .c/.o files
                               ; default = #f

      3m ; #t => build for 3m
         ; default = #f
   
      compile-subcollections   ; #t => use 'compile-subcollections
                               ;  from infor for collection compiling
                               ; default = #t
   
      compile-for-embedded  ; #f => make objects to be linked
                            ; directly with MzScheme, not dynamically
                            ; loaded; default = #f
   
      max-inline-size      ; max size of inlined procedures
   
      disable-interrupts   ; #t => UNSAFE: turn off breaking, stack
                           ; overflow, and thread switching;
                           ; default = #f
      unsafe               ; #t => UNSAFE: omit some type checks
                           ; default = #f
      fixnum-arithmetic    ; #t => UNSAFE: don't check for overflow or
                           ; underflow for fixnum arithmetic;
                           ; default = #f
   
      propagate-constants  ; default = #t
      assume-primitives    ; #t => car = #%car; default = #f
      stupid               ; allow obvious non-syntactic errors;
                           ;  e.g.: ((lambda () 0) 1 2 3)
   
      vehicles             ; Controls how closures are compiled:
   			;  'vehicles:automatic,
                           ;  'vehicles:functions,
                           ;  'vechicles:units, or
                           ;  'vehicles:monolithic.
                           ; default = 'vehicles:automatic
      vehicles:monoliths   ; Size for 'vehicles:monolithic
      seed                 ; Randomizer seed for 'vehicles:monolithic
   
      max-exprs-per-top-level-set ; Number of top-level Scheme expressions
   			       ; crammed into one C function; default = 25
   
      unpack-environments  ; default = #t
   		        ; Maybe #f helps for register-poor architectures?
   
      debug ; #t => creates debug.txt debugging file
      test  ; #t => ignores top-level expressions with syntax errors
      ))

  ;; Compiler procedures
  (define-signature compiler^<commit_msg>unit clean-up<commit_after>
(module sig mzscheme

  (require (lib "unit.ss"))

  (provide compiler:option^
	   compiler^
	   compiler:inner^
	   compiler:linker^)

  ;; Compiler options
  (define-signature compiler:option^
     (verbose ; default = #f
   
      setup-prefix ; string to embed in public names;
                   ; used mainly for compiling extensions
                   ;  with the collection name so that 
                   ;  cross-extension conflicts are less
                   ;  likely in architectures that expose
                   ;  the public names of loaded extensions
                   ; default = ""
   
      clean-intermediate-files ; #t => keep intermediate .c/.o files
                               ; default = #f

      3m ; #t => build for 3m
         ; default = #f
   
      compile-subcollections   ; #t => use 'compile-subcollections
                               ;  from infor for collection compiling
                               ; default = #t
   
      compile-for-embedded  ; #f => make objects to be linked
                            ; directly with MzScheme, not dynamically
                            ; loaded; default = #f
   
      max-inline-size      ; max size of inlined procedures
   
      disable-interrupts   ; #t => UNSAFE: turn off breaking, stack
                           ; overflow, and thread switching;
                           ; default = #f
      unsafe               ; #t => UNSAFE: omit some type checks
                           ; default = #f
      fixnum-arithmetic    ; #t => UNSAFE: don't check for overflow or
                           ; underflow for fixnum arithmetic;
                           ; default = #f
   
      propagate-constants  ; default = #t
      assume-primitives    ; #t => car = #%car; default = #f
      stupid               ; allow obvious non-syntactic errors;
                           ;  e.g.: ((lambda () 0) 1 2 3)
   
      vehicles             ; Controls how closures are compiled:
                           ;  'vehicles:automatic,
                           ;  'vehicles:functions,
                           ;  'vechicles:units, or
                           ;  'vehicles:monolithic.
                           ; default = 'vehicles:automatic
      vehicles:monoliths   ; Size for 'vehicles:monolithic
      seed                 ; Randomizer seed for 'vehicles:monolithic
   
      max-exprs-per-top-level-set ; Number of top-level Scheme expressions
   			       ; crammed into one C function; default = 25
   
      unpack-environments  ; default = #t
   		        ; Maybe #f helps for register-poor architectures?
   
      debug ; #t => creates debug.txt debugging file
      test  ; #t => ignores top-level expressions with syntax errors
      ))

  ;; Compiler procedures
  (define-signature compiler^
{'fraction_non_alphanumeric': 0.07574951215185383, 'fraction_numerical': 0.0028383892141209863, 'mean_word_length': 1.3530884808013355, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 23, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 6, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3676842', 'n_tokens_mistral': 1480, 'n_tokens_neox': 1376, 'n_words': 436}