<commit_before>#lang scheme/base
(require (prefix-in r: "../typed-reader.ss")
         (only-in syntax/module-reader wrap-read-all))

(define (*read in)
  (wrap-read-all 'typed-scheme in r:read))

(define (*read-syntax src in)
  (wrap-read-all 'typed-scheme
                 in
                 (lambda (in)
                   (r:read-syntax src in))))

(provide (rename-out [*read read] [*read-syntax read-syntax]))<commit_msg>Fix typed scheme reader for new reader API.<commit_after>#lang scheme/base
(require (prefix-in r: "../typed-reader.ss")
         (only-in syntax/module-reader wrap-read-all))

(define (*read in modpath line col pos)
  (wrap-read-all 'typed-scheme in r:read modpath #f line col pos))

(define (*read-syntax src in modpath line col pos)
  (wrap-read-all
   'typed-scheme in (lambda (in) (r:read-syntax src in))
   modpath src line col pos))

(provide (rename-out [*read read] [*read-syntax read-syntax]))
{'fraction_non_alphanumeric': 0.15268817204301074, 'fraction_numerical': 0.0, 'mean_word_length': 3.0478260869565217, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, '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': '1992248', 'n_tokens_mistral': 321, 'n_tokens_neox': 307, 'n_words': 92}