diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-03-04 22:48:13 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-03-04 22:48:13 +0000 |
commit | 276dd6775cbb0fef46a7e75d3c004c4db1590703 (patch) | |
tree | 4b580ec2462b2b54fb9127324da78aaaa315b447 /libguile/debug.c | |
parent | b432fb4b9929475c963e8be69ed6c7293bc964d2 (diff) | |
download | guile-276dd6775cbb0fef46a7e75d3c004c4db1590703.tar.gz |
* Eliminate another couple of calls to scm_wta.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r-- | libguile/debug.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/debug.c b/libguile/debug.c index 6fbb08764..275c05bc4 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -446,8 +446,8 @@ SCM_DEFINE (scm_procedure_source, "procedure-source", 1, 0, 0, built in procedures! */ return scm_procedure_property (proc, scm_sym_source); default: - SCM_WTA(1,proc); - return SCM_BOOL_F; + SCM_WRONG_TYPE_ARG (1, proc); + /* not reached */ } } #undef FUNC_NAME @@ -467,8 +467,8 @@ SCM_DEFINE (scm_procedure_environment, "procedure-environment", 1, 0, 0, #endif return SCM_EOL; default: - SCM_WTA(1,proc); - return SCM_BOOL_F; + SCM_WRONG_TYPE_ARG (1, proc); + /* not reached */ } } #undef FUNC_NAME |