On 7/22/05, Daniel B. Faken <[EMAIL PROTECTED]> wrote: > Hi, > > The manual entry for (define-foreign-record) should indicate that, when > using the (TYPENAME FOREIGNNAME) version of NAME, the FOREIGNNAME should > be quoted. > I actually only figured this out by vague recollection of other > FFI behaviour, since if you try to compile this (as I did at first): > (define-foreign-record (CRrectf CRrectf) (GLfloat x1) (GLfloat x2) > (GLfloat y1) (GLfloat y2)) > > ..the chicken compiler hangs! (presumably in an infinite recursion) > - but if you quote the foreignname it works fine. >
Thanks. It is handled internally, now: 172c172 < (let ([fname (if (pair? name) (cadr name) (sprintf "struct ~A" name))] --- > (let ([fname (if (pair? name) (->string (cadr name)) (sprintf "struct ~A" > name))] (chicken-ffi-macros.scm) cheers, felix _______________________________________________ Chicken-users mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/chicken-users
