summaryrefslogtreecommitdiff
path: root/libguile/gsubr.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-04 12:13:41 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-04 12:13:41 +0000
commit4260a7fced0ab02e1bb284f11f1e1b645975a713 (patch)
tree8a1b379a2af38db99d39905b46b62044d732459c /libguile/gsubr.c
parent304b56da60ffa89989cf2943b046058083c76a3c (diff)
downloadguile-4260a7fced0ab02e1bb284f11f1e1b645975a713.tar.gz
Lots of fixes with respect to strict typing.
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. */
}