Re: [Chicken-users] problem in c-string / define-external.

[felix winkelmann]

On 5/30/06, Alejandro Forero Cuervo <address@hidden> wrote:
> More weirdness.
>
> If I run the following
>
>     (define-external (foo ((const c-string) arg)) void
>       (display arg) (newline))
>
>     ((foreign-safe-lambda* void () "foo(\"text\");"))
>
> I get
>
>     #<pointer 8049514>

Here is a patch to compiler.scm:

895,897c895,898
<                                           ,@(case rtype
<                                               ((nonnull-c-string) 
`((##sys#make-c-string (let () ,@(cddr lam)))))
<                                               ((c-string*)
---
>                                                ,@(match rtype
>                                                    ((or '(const 
> nonnull-c-string) 'nonnull-c-string)
>                                                     `((##sys#make-c-string (let 
> () ,@(cddr lam)))))
>                                                    ((or '(const c-string*) 
> 'c-string*)
901c902
<                                               ((c-string)
---
>                                                    ((or 'c-string '(const 
> c-string))
904c905
<                                               (else (cddr lam)) ) )
---
>                                                    (_ (cddr lam)) ) )


cheers,
felix