<commit_before>
(module gui mzscheme
  (require (lib "class.ss")
           (lib "unitsig.ss")
           (lib "list.ss")
           (lib "mred.ss" "mred")
           (lib "framework.ss" "framework")
           (lib "boundmap.ss" "syntax")
           "interfaces.ss"
           "warning.ss"
           "hiding-panel.ss"
           (prefix sb: "../syntax-browser/embed.ss")
           "../syntax-browser/util.ss"
           "../model/deriv-util.ss"
           "../model/trace.ss"
           "../model/hide.ss"
           "../model/hiding-policies.ss"
           "../model/steps.ss"
           "cursor.ss"
           "util.ss")

  (provide catch-errors?
           view@
           context-menu-extension@
           browser-extension@)

  ;; Configuration

  (define catch-errors? (make-parameter #f))
  (define show-rename-steps? (make-parameter #f))

  ;; Macro Stepper

  (define view@
    (unit/sig view^
      (import prefs^
              view-base^
              (sb : sb:widget^))
      
      (define (default-policy)
        (let ([p (new-hiding-policy)])
          (set-hiding-policy-opaque-kernel! p (pref:hide-primitives?))
          (set-hiding-policy-opaque-libs!   p (pref:hide-libs?))
          p))
      
      (define macro-stepper-frame%
        (class base-frame%
          (init (policy (default-policy))
                (macro-hiding? (pref:macro-hiding?))
                (show-hiding-panel? (pref:show-hiding-panel?))
                (identifier=? (pref:identifier=?))
                (width (pref:width))
                (height (pref:height)))
          (inherit get-menu%
                   get-menu-item%
                   get-menu-bar
                   get-file-menu
                   get-edit-menu
                   get-help-menu)
          <commit_msg>Set default to catch errors<commit_after>
(module gui mzscheme
  (require (lib "class.ss")
           (lib "unitsig.ss")
           (lib "list.ss")
           (lib "mred.ss" "mred")
           (lib "framework.ss" "framework")
           (lib "boundmap.ss" "syntax")
           "interfaces.ss"
           "warning.ss"
           "hiding-panel.ss"
           (prefix sb: "../syntax-browser/embed.ss")
           "../syntax-browser/util.ss"
           "../model/deriv-util.ss"
           "../model/trace.ss"
           "../model/hide.ss"
           "../model/hiding-policies.ss"
           "../model/steps.ss"
           "cursor.ss"
           "util.ss")

  (provide catch-errors?
           view@
           context-menu-extension@
           browser-extension@)

  ;; Configuration

  (define catch-errors? (make-parameter #t))
  (define show-rename-steps? (make-parameter #f))

  ;; Macro Stepper

  (define view@
    (unit/sig view^
      (import prefs^
              view-base^
              (sb : sb:widget^))
      
      (define (default-policy)
        (let ([p (new-hiding-policy)])
          (set-hiding-policy-opaque-kernel! p (pref:hide-primitives?))
          (set-hiding-policy-opaque-libs!   p (pref:hide-libs?))
          p))
      
      (define macro-stepper-frame%
        (class base-frame%
          (init (policy (default-policy))
                (macro-hiding? (pref:macro-hiding?))
                (show-hiding-panel? (pref:show-hiding-panel?))
                (identifier=? (pref:identifier=?))
                (width (pref:width))
                (height (pref:height)))
          (inherit get-menu%
                   get-menu-item%
                   get-menu-bar
                   get-file-menu
                   get-edit-menu
                   get-help-menu)
          
{'fraction_non_alphanumeric': 0.14891243725599554, 'fraction_numerical': 0.0, 'mean_word_length': 1.3833887043189368, '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': '109985', 'n_tokens_mistral': 1133, 'n_tokens_neox': 1092, 'n_words': 194}