Re: non-reproduction of initial issue -- was: Guile: What's wrong with this?

[Bruce Korb]

On 01/04/12 16:01, Ludovic Courtès wrote:

BTW, were you able to find a stripped-down example that reproduces the
‘string-upcase’ problem?

Here's the stripped down example, but it does not reproduce the problem.  :(
I didn't copy into it my variation on scm_c_eval_string, but I hope
that isn't the issue.  Must be some subtle interaction somewhere....

#include <stdio.h>
#include <libguile.h>

static SCM
my_get(void)
{
    static char const zNil[] = "";
    SCM res = scm_from_locale_string(zNil);
    printf("zNil at %p yields SCM 0x%llX\n", zNil, (unsigned long long)res);
    return res;
}

static void
inner_main(void * closure, int argc, char ** argv)
{
    scm_c_define_gsubr("my-get", 0, 0, 0, (scm_t_subr)(void*)my_get);
    scm_c_eval_string("(define a (my-get))"
                      "(define b (string-upcase a))"
                      "(exit 0)");
}

int
main(int argc, char ** argv)
{
    scm_boot_guile(argc, argv, inner_main, 0);
    return 0; /* NOTREACHED */
}