Changeset 15009 in project


Ignore:
Timestamp:
06/17/09 22:22:45 (12 years ago)
Author:
Jim Ursetto
Message:

foreigners: no longer rename gensyms

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/foreigners/trunk/foreigners.scm

    r14657 r15009  
    105105                 ,@(if (not dtor)
    106106                       '()
    107                        (let ((ptr (r (gensym))))
     107                       (let ((ptr (gensym)))
    108108                         `((,%define (,dtor ,ptr)
    109109                             (and ,ptr (##core#inline "C_qfree" ,ptr))))))
     
    118118                                (let ((sname (car namesz))
    119119                                      (size (cadr namesz))
    120                                       (var (r (gensym)))
    121                                       (cvar (r (gensym)))
    122                                       (svar (r (gensym)))
    123                                       (xvar (r (gensym))))
     120                                      (var (gensym))
     121                                      (cvar (gensym))
     122                                      (svar (gensym))
     123                                      (xvar (gensym)))
    124124                                  `(,%begin
    125125                                     (,%define ,getr
     
    157157                             
    158158                                (let ([sname (cadr slot)]
    159                                       [var (r (gensym))] ; rename may be unnecessary
    160                                       [xvar (r (gensym))])
     159                                      [var (gensym)]
     160                                      [xvar (gensym)])
    161161                                  `(,%begin
    162162                                     (,%define ,getr
Note: See TracChangeset for help on using the changeset viewer.