<commit_before>#lang scribble/doc
@(require scribble/manual
          scribble/urls
          scribble/eval
          "../quick/keep.ss"
          (for-label scheme
                     readline
                     net/url
                     xml
                     scheme/control))

@(define quick @other-manual['(lib "quick.scrbl" "scribblings/quick")])
@(define guide @other-manual['(lib "guide.scrbl" "scribblings/guide")])

@(define break-eval (make-base-eval))
@interaction-eval[#:eval break-eval
                  (define (show-reload)
                    (printf " [re-loading serve.ss]\n"))]
@interaction-eval[#:eval break-eval
                  (define (serve n) void)]
@interaction-eval[#:eval break-eval
                  (define (show-break)
                    (fprintf (current-error-port) "^Cuser break"))]
@interaction-eval[#:eval break-eval
                  (define (show-fail n)
                    (error 'tcp-listen
                           "listen on ~a failed (Address already in use; errno=48)"
                           n))]
@interaction-eval[#:eval break-eval (require xml net/url)]

@(define (whole-prog which [last? #f])
  (let ([file (format "step~a.txt" which)])
    (margin-note (keep-file file)
                 "Here's the "
                 (if last? 
                     "final program"
                     "whole program so far")
                 " in plain text: "<commit_msg>tweak 'more' output<commit_after>#lang scribble/doc
@(require scribble/manual
          scribble/urls
          scribble/eval
          "../quick/keep.ss"
          (for-label scheme
                     readline
                     net/url
                     xml
                     scheme/control))

@(define quick @other-manual['(lib "quick.scrbl" "scribblings/quick")])
@(define guide @other-manual['(lib "guide.scrbl" "scribblings/guide")])

@(define break-eval (make-base-eval))
@interaction-eval[#:eval break-eval
                  (define (show-reload)
                    (printf " [re-loading serve.ss]\n"))]
@interaction-eval[#:eval break-eval
                  (define (serve n) void)]
@interaction-eval[#:eval break-eval
                  (define (show-break)
                    (fprintf (current-error-port) "^Cuser break"))]
@interaction-eval[#:eval break-eval
                  (define (show-fail n)
                    (error 'tcp-listen
                           "listen on ~a failed (address already in use)"
                           n))]
@interaction-eval[#:eval break-eval (require xml net/url)]

@(define (whole-prog which [last? #f])
  (let ([file (format "step~a.txt" which)])
    (margin-note (keep-file file)
                 "Here's the "
                 (if last? 
                     "final program"
                     "whole program so far")
                 " in plain text: "
{'fraction_non_alphanumeric': 0.13159746657283602, 'fraction_numerical': 0.0007037297677691766, 'mean_word_length': 1.552064631956912, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 4}, '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': '5307591', 'n_tokens_mistral': 847, 'n_tokens_neox': 782, 'n_words': 191}