Changeset 25452 in project


Ignore:
Timestamp:
10/28/11 09:21:47 (9 years ago)
Author:
felix winkelmann
Message:

miscmacros 2.94: fixes hygiene problem in doto, found by ckeen

Location:
release/4/miscmacros
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/miscmacros/tags/2.94/miscmacros.scm

    r25448 r25452  
    289289    (let ((s (cadr f))
    290290          (forms (cddr f))
    291           (%let (r 'let)))
    292       `(,%let ((x ,s))
     291          (%let (r 'let))
     292          (%x (r 'x)))
     293      `(,%let ((,%x ,s))
    293294         ,@(map (lambda (form)
    294295                  (if (list? form)
    295                       `(,(car form) x ,@(cdr form))
    296                       `(,form x)))
     296                      `(,(car form) ,%x ,@(cdr form))
     297                      `(,form ,%x)))
    297298                forms)
    298          x))))
     299         ,%x))))
    299300
    300301(define-syntax-rule (ecase val clauses ...)
  • release/4/miscmacros/tags/2.94/miscmacros.setup

    r25448 r25452  
    99 '((syntax)
    1010   (import-only)
    11    (version 2.93)))
     11   (version 2.94)))
  • release/4/miscmacros/trunk/miscmacros.scm

    r25448 r25452  
    289289    (let ((s (cadr f))
    290290          (forms (cddr f))
    291           (%let (r 'let)))
    292       `(,%let ((x ,s))
     291          (%let (r 'let))
     292          (%x (r 'x)))
     293      `(,%let ((,%x ,s))
    293294         ,@(map (lambda (form)
    294295                  (if (list? form)
    295                       `(,(car form) x ,@(cdr form))
    296                       `(,form x)))
     296                      `(,(car form) ,%x ,@(cdr form))
     297                      `(,form ,%x)))
    297298                forms)
    298          x))))
     299         ,%x))))
    299300
    300301(define-syntax-rule (ecase val clauses ...)
  • release/4/miscmacros/trunk/miscmacros.setup

    r25448 r25452  
    99 '((syntax)
    1010   (import-only)
    11    (version 2.93)))
     11   (version 2.94)))
Note: See TracChangeset for help on using the changeset viewer.