summaryrefslogtreecommitdiff
path: root/libguile/debug.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/debug.c
parent304b56da60ffa89989cf2943b046058083c76a3c (diff)
downloadguile-4260a7fced0ab02e1bb284f11f1e1b645975a713.tar.gz
Lots of fixes with respect to strict typing.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r--libguile/debug.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/debug.c b/libguile/debug.c
index 3000cd424..4f021dff4 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -440,7 +440,7 @@ SCM_DEFINE (scm_procedure_source, "procedure-source", 1, 0, 0,
return scm_procedure_property (proc, scm_sym_source);
default:
SCM_WTA(1,proc);
- return 0;
+ return SCM_BOOL_F;
}
}
#undef FUNC_NAME
@@ -462,7 +462,7 @@ SCM_DEFINE (scm_procedure_environment, "procedure-environment", 1, 0, 0,
return SCM_EOL;
default:
SCM_WTA(1,proc);
- return 0;
+ return SCM_BOOL_F;
}
}
#undef FUNC_NAME