summaryrefslogtreecommitdiff
path: root/libguile/gsubr.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gsubr.c')
-rw-r--r--libguile/gsubr.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gsubr.c b/libguile/gsubr.c
index db41d2098..43db9c76c 100644
--- a/libguile/gsubr.c
+++ b/libguile/gsubr.c
@@ -126,7 +126,7 @@ scm_make_gsubr_with_generic (const char *name,
scm_misc_error ("scm_make_gsubr_with_generic",
"can't make primitive-generic with this arity",
SCM_EOL);
- return 0; /* never reached */
+ return SCM_BOOL_F; /* never reached */
}
@@ -174,7 +174,7 @@ scm_gsubr_apply (SCM args)
case 9: return (*fcn)(v[0], v[1], v[2], v[3], v[4], v[5], v[6], v[7], v[8]);
case 10: return (*fcn)(v[0], v[1], v[2], v[3], v[4], v[5], v[6], v[7], v[8], v[9]);
}
- return 0; /* Never reached. */
+ return SCM_BOOL_F; /* Never reached. */
}