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 |
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); |