Hi,
In `next_fluid_num ()', an `scm_gc ()' call was systematically triggered
at startup time. This patch fixes this.
Thanks,
Ludovic.
2005-12-16 Ludovic Courtès <[EMAIL PROTECTED]>
* fluids.c (next_fluid_num): Don't trigger the GC when
ALLOCATED_FLUIDS_LEN is zero.
--- orig/libguile/fluids.c
+++ mod/libguile/fluids.c
@@ -202,7 +202,8 @@
scm_frame_begin (0);
scm_i_frame_pthread_mutex_lock (&fluid_admin_mutex);
- if (allocated_fluids_num == allocated_fluids_len)
+ if ((allocated_fluids_len > 0) &&
+ (allocated_fluids_num == allocated_fluids_len))
{
/* All fluid numbers are in use. Run a GC to try to free some
up.
_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel
