Changeset 14474 in project for chicken


Ignore:
Timestamp:
04/27/09 10:20:23 (10 years ago)
Author:
felix winkelmann
Message:

strip-syntax foreign types at a few more locations

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/compiler.scm

    r14447 r14474  
    999999                        ((define-foreign-variable)
    10001000                         (let* ([var (##sys#strip-syntax (second x))]
    1001                                 [type (third x)]
     1001                                [type (##sys#strip-syntax (third x))]
    10021002                                [name (if (pair? (cdddr x))
    10031003                                          (fourth x)
     
    10131013                        ((define-foreign-type)
    10141014                         (let ([name (second x)]
    1015                                [type (third x)]
     1015                               [type (##sys#strip-syntax (third x))]
    10161016                               [conv (cdddr x)] )
    10171017                           (cond [(pair? conv)
     
    10501050                        ((##core#let-location)
    10511051                         (let* ([var (second x)]
    1052                                 [type (third x)]
     1052                                [type (##sys#strip-syntax (third x))]
    10531053                                [alias (gensym)]
    10541054                                [store (gensym)]
Note: See TracChangeset for help on using the changeset viewer.