Parent Directory | Revision Log | Patch
revision 1.47 by ttn, Thu Mar 14 03:47:42 2002 UTC | revision 1.48 by xxhanwen, Sat Jul 20 14:08:33 2002 UTC | |
---|---|---|
# | Line 145 scm_hasher(SCM obj, unsigned long n, siz | Line 145 scm_hasher(SCM obj, unsigned long n, siz |
145 | case scm_tc7_vector: | case scm_tc7_vector: |
146 | { | { |
147 | size_t len = SCM_VECTOR_LENGTH(obj); | size_t len = SCM_VECTOR_LENGTH(obj); |
148 | SCM *data = SCM_VELTS(obj); | SCM const *data = SCM_VELTS(obj); |
149 | if (len > 5) | if (len > 5) |
150 | { | { |
151 | size_t i = d/2; | size_t i = d/2; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |