summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-03-04 22:48:13 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-03-04 22:48:13 +0000
commit276dd6775cbb0fef46a7e75d3c004c4db1590703 (patch)
tree4b580ec2462b2b54fb9127324da78aaaa315b447 /libguile/debug.c
parentb432fb4b9929475c963e8be69ed6c7293bc964d2 (diff)
downloadguile-276dd6775cbb0fef46a7e75d3c004c4db1590703.tar.gz
* Eliminate another couple of calls to scm_wta.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r--libguile/debug.c8
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