guile/guile-core/libguile ChangeLog hooks.c

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Mikael Djurfeldt <address@hidden>       03/02/20 09:12:37

Modified files:
        guile-core/libguile: ChangeLog hooks.c 

Log message:
        * hooks.c (scm_c_hook_add): Fixed bug in append mode.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ChangeLog.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.1465.2.108&tr2=1.1465.2.109&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/hooks.c.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.21.2.3&tr2=1.21.2.4&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -c guile/guile-core/libguile/ChangeLog:1.1781 
guile/guile-core/libguile/ChangeLog:1.1782
*** guile/guile-core/libguile/ChangeLog:1.1781  Wed Feb 19 10:04:48 2003
--- guile/guile-core/libguile/ChangeLog Wed Feb 19 11:16:46 2003
***************
*** 1,5 ****
--- 1,23 ----
  2003-02-19  Mikael Djurfeldt  <address@hidden>
  
+       * environments.c (DEFAULT_OBARRAY_SIZE): Changed from 137 to 31
+       (since hash tables now adapt their size).
+ 
+       * modules.c (scm_modules_prehistory): Changed from 2001 to 1533
+       (current number of prehistory bindings; hashtable code will select
+       a prime which is greater than this value).
+ 
+       * symbols.c (scm_symbols_prehistory): Changed from 1009 to 2139
+       (current number of initial symbols).
+ 
+       * properties.c (scm_init_properties): Don't specify size of
+       scm_properties_whash.
+ 
+       * objprop.c (scm_init_objprop): Don't specify size of
+       scm_object_whash.
+ 
+       * keywords.c (scm_init_keywords): Don't specify a hash table size.
+ 
        * hooks.c (scm_c_hook_add): Fixed bug in append mode.
  
        The following changes introduce the use of resizable hash tables
Index: guile/guile-core/libguile/hooks.c
diff -c guile/guile-core/libguile/hooks.c:1.27 
guile/guile-core/libguile/hooks.c:1.28
*** guile/guile-core/libguile/hooks.c:1.27      Sat Jul 20 10:08:33 2002
--- guile/guile-core/libguile/hooks.c   Wed Feb 19 10:04:50 2003
***************
*** 1,4 ****
! /* Copyright (C) 1995,1996,1998,1999,2000,2001 Free Software Foundation, Inc.
   * 
   * This program is free software; you can redistribute it and/or modify
   * it under the terms of the GNU General Public License as published by
--- 1,4 ----
! /* Copyright (C) 1995,1996,1998,1999,2000,2001, 2003 Free Software 
Foundation, Inc.
   * 
   * This program is free software; you can redistribute it and/or modify
   * it under the terms of the GNU General Public License as published by
***************
*** 81,87 ****
    scm_t_c_hook_entry **loc = &hook->first;
    if (appendp)
      while (*loc)
!       *loc = (*loc)->next;
    entry->next = *loc;
    entry->func = func;
    entry->data = func_data;
--- 81,87 ----
    scm_t_c_hook_entry **loc = &hook->first;
    if (appendp)
      while (*loc)
!       loc = &(*loc)->next;
    entry->next = *loc;
    entry->func = func;
    entry->data = func_data;