Changeset 14447 in project
- Timestamp:
- 04/26/09 00:01:54 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/compiler.scm
r14340 r14447 1497 1497 1498 1498 (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)))] 1500 1502 [f-id (gensym 'stub)] 1501 1503 [bufvar (gensym)]
Note: See TracChangeset
for help on using the changeset viewer.