[Chicken-janitors] #541: define-external does not grok "const" qualifier

[Chicken Trac]

#541: define-external does not grok "const" qualifier
----------------------+-----------------------------------------------------
 Reporter:  sjamaan   |       Owner:  felix
     Type:  defect    |      Status:  new  
 Priority:  minor     |   Milestone:  4.7.0
Component:  compiler  |     Version:  4.6.x
 Keywords:  ffi       |  
----------------------+-----------------------------------------------------
 I believe the following program should show "bar" when run, but it shows
 {{{#<pointer 0x401f01>}}}

 {{{
 #!scm
 (define-external
   (print_foo ((const c-string) foo))
   void
   (print foo))
 ((foreign-safe-lambda* void ()
    "print_foo(\"bar\");"))
 }}}

 If I remove the const qualifier, it works.

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/541>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.