[Chicken-janitors] Re: #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:  reopened
  Priority:  minor     |   Milestone:  4.7.0   
 Component:  compiler  |     Version:  4.6.x   
Resolution:            |    Keywords:  ffi     
-----------------------+----------------------------------------------------
Changes (by sjamaan):

  * status:  closed => reopened
  * resolution:  fixed =>


Comment:

 The fix for this bug doesn't work in the general case. I think it's
 missing a strip-syntax:

 {{{
 (define-syntax generate-external
   (syntax-rules ()
     ((_) (define-external
            (print_foo ((const c-string) foo))
            void
            (print foo)))))
 (generate-external)
 ((foreign-safe-lambda* void ()
    "print_foo(\"bar\");"))
 }}}

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