Changeset 12304 in project


Ignore:
Timestamp:
10/29/08 13:58:06 (12 years ago)
Author:
felix winkelmann
Message:

fixed silly bug, result-name in exception wrapper exposed as _result

Location:
release/4/easyffi
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/easyffi/easyffi-base.scm

    r11798 r12304  
    799799        `(,(if safe 'foreign-safe-lambda* 'foreign-lambda*)
    800800          ,rtype ,(map list argtypes vars)
    801           ,(let ((rvar (->string (gensym "r"))))
     801          ,(let ((rvar "___result"))
    802802             (string-append
    803803              (if (eq? 'void rtype)
     
    811811              (if (eq? 'void rtype) "" (sprintf "return(~a);" rvar))))))
    812812      `(,(if safe 'foreign-safe-lambda 'foreign-lambda)
    813         ,rtype name ,@argtypes)))
     813        ,rtype ,name ,@argtypes)))
    814814
    815815(define (process-prototype-def rtype name args io lvars cb #!optional (use-prefix #t))
  • release/4/easyffi/easyffi.setup

    r11740 r12304  
    2020 'easyffi
    2121 '("easyffi.so" "easyffi.import.so")
    22  '((version 1.94)
     22 '((version 1.95)
    2323   (syntax)))
    2424
     
    2626 'easyffi-base
    2727 '("easyffi-base.so" "easyffi-base.import.so")
    28  '((version 1.94)))
     28 '((version 1.95)))
    2929
    3030(install-program
    3131 'chicken-wrap
    3232 "chicken-wrap"
    33  '((version 1.94)))
     33 '((version 1.95)))
    3434
Note: See TracChangeset for help on using the changeset viewer.