Thread and guile environment

[rixed@happyleptic.org]

[-- Attachment #1: Type: text/plain, Size: 316 bytes --]

Suppose I have a multithreaded C program. Isn't the guile environment supposed
to be shared amongst all threads ? That's what I understood from reading the
docs anyway.

Yet this simple exemple shows the opposite (see the 3 attached files).
So am I supposed to source my global scheme definitions in all threads ?



[-- Attachment #2: bug.c --]
[-- Type: text/plain, Size: 604 bytes --]

#include <unistd.h>
#include <pthread.h>
#include <libguile.h>

static void *load_file_with_guile(void *filename)
{
	scm_c_primitive_load((char *)filename);
	return NULL;
}

static void *hug_me(void *str)
{
	scm_c_eval_string(str);
}

static void *thread_hugme(void *dummy)
{
	//scm_with_guile(load_file_with_guile, "bug.scm");
	scm_with_guile(hug_me, "(hug 2)");
	return NULL;
}

int main(void) {
	scm_with_guile(load_file_with_guile, "bug.scm");

	scm_with_guile(hug_me, "(hug 1)");

	pthread_t thread;
    pthread_create(&thread, NULL, thread_hugme, NULL);

	pthread_join(thread, NULL);

	return 0;
}

[-- Attachment #3: bug.scm --]
[-- Type: text/plain, Size: 73 bytes --]

(use-modules (ice-9 format))
(define (hug x) (format #t "HUG ~a !\n" x))

[-- Attachment #4: Makefile --]
[-- Type: text/plain, Size: 97 bytes --]

CFLAGS += $(shell guile-config compile)
LDLIBS += $(shell guile-config link) -lpthread

all: bug