Changeset 14447 in project for chicken


Ignore:
Timestamp:
04/26/09 00:01:54 (11 years ago)
Author:
felix winkelmann
Message:

foreign types are strip-syntax'ed (should fix #17), reported by Shawn Rutledge

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/compiler.scm

    r14340 r14447  
    14971497
    14981498(define (create-foreign-stub rtype sname argtypes argnames body callback cps)
    1499   (let* ([params (list-tabulate (length argtypes) (lambda (x) (gensym 'a)))]
     1499  (let* ((rtype (##sys#strip-syntax rtype))
     1500         (argtypes (##sys#strip-syntax argtypes))
     1501         [params (list-tabulate (length argtypes) (lambda (x) (gensym 'a)))]
    15001502         [f-id (gensym 'stub)]
    15011503         [bufvar (gensym)]
Note: See TracChangeset for help on using the changeset viewer.