Fix in crypt for FreeBSD.

2001-06-19 11:33:08 +00:00
parent 2da7ff5f72
commit d97da4df60
1 changed files with 7 additions and 2 deletions
@@ -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)
 {
-  return s48_enter_string (crypt ( s48_extract_string (key), 
-				   s48_extract_string(salt)));
+  char * ret = crypt (s48_extract_string (key), 
+		      s48_extract_string(salt));
+
+  // FreeBSD does this on error:
+  if (ret == NULL) return s48_enter_string("");
+
+  return s48_enter_string (ret);
 }