> Joel Reymont wrote:
>Each module generated by SWIG has this at the top:
>
>(declare (unit sdl))
>
>(declare
> (hide swig-init)
> (foreign-declare "C_extern void swig_sdl_init(C_word,C_word,C_word)
>C_noret;"))
>(define swig-init (##core#primitive "swig_sdl_init"))
>(define swig-init-return (swig-init))
>
>After all my library loading swig-init-return becomes that of the
widgets
>unit which is not quite what I'm looking for. Bummer!
And now for that ultimate solution...
Adding (hide swig-init-return) right after (hide swig-init) does the
trick!
Maybe that should be done by default by the SWIG Chicken module. As per
the Chicken module it should be more efficient too.
Right now I run sed on the generated Scheme file to hide swig-init-
return. Is there a cleaner way?