andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ASSERT_MSG: hash

This commit is contained in:
Jan Nieuwenhuizen 2019-10-26 08:12:48 +02:00
parent b2bcf6456c
commit 6166d194ea
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/hash.c
View File

@ -46,24 +46,27 @@ hashq_ (SCM x, long size)
int
hash_ (SCM x, long size)
{
if (TYPE (x) == TSTRING)
return hash_cstring (cell_bytes (STRING (x)), size);
assert_msg (0, "0");
return hashq_ (x, size);
if (TYPE (x) != TSTRING)
{
eputs ("hash_ failed, not a string:");
display_error_ (x);
assert_msg (0, "0");
}
return hash_cstring (cell_bytes (STRING (x)), size);
}
SCM
hashq (SCM x, SCM size)
{
eputs ("hashq not supporteed\n");
assert_msg (0, "0");
return make_number (hashq_ (x, VALUE (size)));
}
SCM
hash (SCM x, SCM size)
{
eputs ("hash not supporteed\n");
assert_msg (0, "0");
return make_number (hash_ (x, VALUE (size)));
}
SCM