Changeset 14447 in project

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:

• chicken/trunk/compiler.scm (modified) (1 diff)

chicken/trunk/compiler.scm

@@ -1497 +1497 @@
 
 (define (create-foreign-stub rtype sname argtypes argnames body callback cps)
-  (let* ([params (list-tabulate (length argtypes) (lambda (x) (gensym 'a)))]
+  (let* ((rtype (##sys#strip-syntax rtype))
+         (argtypes (##sys#strip-syntax argtypes))
+         [params (list-tabulate (length argtypes) (lambda (x) (gensym 'a)))]
          [f-id (gensym 'stub)]
          [bufvar (gensym)]