<commit_before>
(module unitidmap mzscheme

  ;; Help Desk binding info:
  (define (binding binder bound stx)
    stx
    ;; This 'bound-in-source is no longer needed
    #;
    (syntax-property
     stx
     'bound-in-source
     (cons binder (syntax-local-introduce bound))))

  (define (make-id-mapper unbox-stx the-binder)
    (let ([set!-stx (datum->syntax-object unbox-stx 'set! #f)])
      (make-set!-transformer
       (lambda (sstx)
	 (cond
	  [(identifier? sstx) 
	   (binding the-binder sstx
		    unbox-stx)]
	  [(module-identifier=? set!-stx (car (syntax-e sstx)))
	   (raise-syntax-error
	    'unit
	    "cannot set! imported or exported variables"
	    sstx)]
	  [else
	   (binding
	    the-binder (car (syntax-e sstx))
	    (datum->syntax-object
	     set!-stx
	     (cons unbox-stx (cdr (syntax-e sstx)))
	     sstx))])))))

  (provide make-id-mapper))

<commit_msg>fixed mapped id application context<commit_after>
(module unitidmap mzscheme

  ;; Help Desk binding info:
  (define (binding binder bound stx)
    stx
    ;; This 'bound-in-source is no longer needed
    #;
    (syntax-property
     stx
     'bound-in-source
     (cons binder (syntax-local-introduce bound))))

  (define (make-id-mapper unbox-stx the-binder)
    (let ([set!-stx (datum->syntax-object unbox-stx 'set! #f)])
      (make-set!-transformer
       (lambda (sstx)
	 (cond
	  [(identifier? sstx) 
	   (binding the-binder sstx
		    unbox-stx)]
	  [(module-identifier=? set!-stx (car (syntax-e sstx)))
	   (raise-syntax-error
	    'unit
	    "cannot set! imported or exported variables"
	    sstx)]
	  [else
	   (binding
	    the-binder (car (syntax-e sstx))
	    (datum->syntax-object
	     sstx
	     (cons unbox-stx (cdr (syntax-e sstx)))
	     sstx))])))))

  (provide make-id-mapper))


{'fraction_non_alphanumeric': 0.1412556053811659, 'fraction_numerical': 0.0, 'mean_word_length': 2.598790322580645, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 7, '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': '229656', 'n_tokens_mistral': 731, 'n_tokens_neox': 649, 'n_words': 160}