Changeset 18642 in project


Ignore:
Timestamp:
06/27/10 17:08:40 (11 years ago)
Author:
sjamaan
Message:

colorize: Add keyword arg name to unhygienic names to prevent unwanted hygienic renames of keyword args

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/colorize/colorize.scm

    r18631 r18642  
    7979(define-syntax with-scanning-functions*
    8080  (syntax-rules ()
    81     ((_ (advance scan-any scan peek-any peek set-mode)
     81    ((_ (advance scan-any scan peek-any peek set-mode not-preceded-by)
    8282        string-param position-place mode-place mode-wait-place body ...)
    8383     (letrec ((advance (lambda (num)
     
    159159   (lambda (exp ren cmp)
    160160     `(,(ren 'with-scanning-functions*)
    161        (advance scan-any scan peek-any peek set-mode)  ; Unhygienic names
     161       ;; Unhygienic names:
     162       (advance scan-any scan peek-any peek set-mode not-preceded-by)
    162163       . ,(cdr exp)))))
    163164
Note: See TracChangeset for help on using the changeset viewer.