Fix in crypt for FreeBSD.

This commit is contained in:
mainzelm 2001-06-19 11:33:08 +00:00
parent 2da7ff5f72
commit d97da4df60
1 changed files with 7 additions and 2 deletions

View File

@ -758,6 +758,11 @@ s48_value fcntl_write(s48_value fd, s48_value command, s48_value value)
*/ */
s48_value scm_crypt(s48_value key, s48_value salt) s48_value scm_crypt(s48_value key, s48_value salt)
{ {
return s48_enter_string (crypt ( s48_extract_string (key), char * ret = crypt (s48_extract_string (key),
s48_extract_string(salt))); s48_extract_string(salt));
// FreeBSD does this on error:
if (ret == NULL) return s48_enter_string("");
return s48_enter_string (ret);
} }