mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo in hash.d

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-08-15 20:11:03 +02:00
parent c5789e152c
commit 8bcda88165
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/hash.d
View file

@ -46,7 +46,7 @@ _hash_eql(cl_hashkey h, cl_object x)
h = _hash_eql(h, x->ratio.num);
return _hash_eql(h, x->ratio.den);
case t_singlefloat:
return hash_string(h, (unsigned char*)&ecl_single_float(x), sizeof(ecl_signle_float(x)));
return hash_string(h, (unsigned char*)&ecl_single_float(x), sizeof(ecl_single_float(x)));
case t_doublefloat:
return hash_string(h, (unsigned char*)&ecl_double_float(x), sizeof(ecl_double_float(x)));
#ifdef ECL_LONG_FLOAT