/[guile]/guile/guile-core/libguile/modules.c
ViewVC logotype

Diff of /guile/guile-core/libguile/modules.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by mdj, Tue Dec 10 16:07:30 2002 UTC revision 1.45 by mdj, Wed Feb 19 15:04:50 2003 UTC
# Line 1  Line 1 
1  /* Copyright (C) 1998,2000,2001,2002 Free Software Foundation, Inc.  /* Copyright (C) 1998,2000,2001,2002, 2003 Free Software Foundation, Inc.
2   *   *
3   * This program is free software; you can redistribute it and/or modify   * This program is free software; you can redistribute it and/or modify
4   * it under the terms of the GNU General Public License as published by   * it under the terms of the GNU General Public License as published by
# Line 558  scm_module_reverse_lookup (SCM module, S Line 558  scm_module_reverse_lookup (SCM module, S
558    /* XXX - We do not use scm_hash_fold here to avoid searching the    /* XXX - We do not use scm_hash_fold here to avoid searching the
559       whole obarray.  We should have a scm_hash_find procedure. */       whole obarray.  We should have a scm_hash_find procedure. */
560    
561    n = SCM_VECTOR_LENGTH (obarray);    n = SCM_HASHTABLE_N_BUCKETS (obarray);
562    for (i = 0; i < n; ++i)    for (i = 0; i < n; ++i)
563      {      {
564        SCM ls = SCM_VELTS (obarray)[i], handle;        SCM ls = SCM_HASHTABLE_BUCKETS (obarray)[i], handle;
565        while (!SCM_NULLP (ls))        while (!SCM_NULLP (ls))
566          {          {
567            handle = SCM_CAR (ls);            handle = SCM_CAR (ls);

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26