summaryrefslogtreecommitdiff
path: root/libguile/throw.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/throw.c')
-rw-r--r--libguile/throw.c3
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);