Re: statically linking in srfi modules

[Richard Shann]

On Sat, 2013-02-09 at 21:00 -0500, Mark H Weaver wrote:
> Hi Richard,
> 
> Don't worry, we'll get it working.  Here's another attempt.
> Replace the calls to 'scm_c_register_extension' with the following:
> 
>   scm_c_call_with_current_module (scm_c_resolve_module ("guile"),
>                                   bind_srfi_initializers, NULL);
> 
> With the following additional definitions:
> 
>   static SCM
>   init_srfi_1 (void)
>   {
>     scm_init_srfi_1 ();
>     return SCM_UNSPECIFIED;
>   }
> 
>   static SCM
>   init_srfi_60 (void)
>   {
>     scm_init_srfi_60 ();
>     return SCM_UNSPECIFIED;
>   }
> 
>   static SCM
>   bind_srfi_initializers (void *dummy)
>   {
>     scm_c_define_gsubr ("%init-srfi-1",  0, 0, 0, init_srfi_1);
>     scm_c_define_gsubr ("%init-srfi-60", 0, 0, 0, init_srfi_60);
>     return SCM_UNSPECIFIED;
>   }
> 
> Then, starting with the original versions of srfi-1.scm and srfi-60.scm
> from Guile 1.8, replace the (load-extension ...) calls in those two
> files with (%init-srfi-1) and (%init-srfi-60), respectively.
With this Denemo starts up looking very good - no error messages from
any of the scheme executed on startup. However the symbol make-regexp is
undefined. Denemo executes 

(use-modules (srfi srfi-1)) ; List library
(use-modules (srfi srfi-8)) ; Returning and Accepting Multiple Values
(use-modules (srfi srfi-13)) ; String library
(use-modules (ice-9 regex)) ; regular expressions
(use-modules (ice-9 optargs)) ; optional (define* ) arguments
(use-modules (ice-9 q)) ; queue module

at startup.
I have displayed (defined? 'make-regexp) and it is #f from before the
first of those module loads and remains #f throughout.
 
I am not sure if it is defined or merely re-defined by (ice-9 regex).

Could this be a side effect of those initialization calls made in the C
code? Or is this a separate problem? ... I realize that I don't know for
sure that srfi-1 has successfully loaded - is there a simple test for
that?

Thanks for your patience,

Richard