summaryrefslogtreecommitdiff
path: root/libguile/posix.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/posix.c')
-rw-r--r--libguile/posix.c11
1 files changed, 7 insertions, 4 deletions
diff --git a/libguile/posix.c b/libguile/posix.c
index b35dfbd80..2e3fed67a 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1956,9 +1956,12 @@ SCM_DEFINE (scm_crypt, "crypt", 2, 0, 0,
c_ret = crypt (c_key, c_salt);
if (c_ret == NULL)
- /* Note: Do not throw until we've released 'scm_i_misc_mutex' since
- this would cause a deadlock down the path. */
- err = errno;
+ {
+ /* Note: Do not throw until we've released 'scm_i_misc_mutex'
+ since this would cause a deadlock down the path. */
+ err = errno;
+ ret = SCM_BOOL_F;
+ }
else
{
err = 0;
@@ -1967,7 +1970,7 @@ SCM_DEFINE (scm_crypt, "crypt", 2, 0, 0,
scm_dynwind_end ();
- if (err != 0)
+ if (scm_is_false (ret))
{
errno = err;
SCM_SYSERROR;