diff options
Diffstat (limited to 'libguile/debug.c')
-rw-r--r-- | libguile/debug.c | 4 |
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 |