diff options
Diffstat (limited to 'libguile/throw.c')
-rw-r--r-- | libguile/throw.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/throw.c b/libguile/throw.c index 04c5263e1..91f07f61a 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -58,6 +58,7 @@ #include "libguile/stacks.h" #include "libguile/fluids.h" #include "libguile/ports.h" +#include "libguile/lang.h" #include "libguile/validate.h" #include "libguile/throw.h" @@ -401,7 +402,7 @@ scm_handle_by_proc_catching_all (void *handler_data, SCM tag, SCM throw_args) int scm_exit_status (SCM args) { - if (SCM_NNULLP (args)) + if (!SCM_NULL_OR_NIL_P (args)) { SCM cqa = SCM_CAR (args); |