summaryrefslogtreecommitdiffstats
path: root/debug.c
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:27 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:27 -0800
commitc7d035ae1a729232579a0fe41ed5affa131d3623 (patch)
treefb387f7c2a8e01cf603d4c75fbbaa68f711df986 /debug.c
parentdeda2c0fd8689349fea2a900199a76ff7ecb319e (diff)
downloadscm-c7d035ae1a729232579a0fe41ed5affa131d3623.tar.gz
scm-c7d035ae1a729232579a0fe41ed5affa131d3623.zip
Import Upstream version 5d9upstream/5d9
Diffstat (limited to 'debug.c')
-rw-r--r--debug.c22
1 files changed, 11 insertions, 11 deletions
diff --git a/debug.c b/debug.c
index 22c387b..aff8251 100644
--- a/debug.c
+++ b/debug.c
@@ -82,7 +82,7 @@ SCM scm_env_rlookup(addr, stenv, what)
for (env = stenv; NIMP(env); env = CDR(env)) {
fr = CAR(env);
if (INUMP(fr)) {
- ASSERT(NIMP(env) && CONSP(env), stenv, s_badenv, what);
+ ASRTER(NIMP(env) && CONSP(env), stenv, s_badenv, what);
env = CDR(env);
continue;
}
@@ -122,7 +122,7 @@ SCM scm_env_getprop(prop, env)
if (INUMP(CAR(e))) {
if (CAR(e)==prop) return CDR(e);
e = CDR(e);
- ASSERT(NIMP(e), env, s_badenv, "env_getprop");
+ ASRTER(NIMP(e), env, s_badenv, "env_getprop");
}
e = CDR(e);
}
@@ -348,7 +348,7 @@ SCM scm_int2linum(n)
SCM n;
{
int i = INUM(n);
- ASSERT(INUMP(n) && i >= 0, n, ARG1, s_int2linum);
+ ASRTER(INUMP(n) && i >= 0, n, ARG1, s_int2linum);
return SCM_MAKE_LINUM(i);
}
@@ -356,7 +356,7 @@ static char s_linum2int[] = "line-number->integer";
SCM scm_linum2int(linum)
SCM linum;
{
- ASSERT(SCM_LINUMP(linum), linum, ARG1, s_linum2int);
+ ASRTER(SCM_LINUMP(linum), linum, ARG1, s_linum2int);
return MAKINUM(SCM_LINUM(linum));
}
@@ -490,7 +490,7 @@ SCM scm_stack_trace(contin)
}
else {
CONTINUATION *cont;
- ASSERT(NIMP(contin) && (tc7_contin==TYP7(contin)), contin, ARG1,
+ ASRTER(NIMP(contin) && (tc7_contin==TYP7(contin)), contin, ARG1,
s_stack_trace);
cont = CONT(contin);
estk = cont->other.estk;
@@ -504,9 +504,9 @@ SCM scm_frame_trace(contin, nf)
SCM contin, nf;
{
SCM *stkframe, code, env;
- ASSERT(NIMP(contin) && tc7_contin==TYP7(contin), contin, ARG1,
+ ASRTER(NIMP(contin) && tc7_contin==TYP7(contin), contin, ARG1,
s_frame_trace);
- ASSERT(INUMP(nf) && INUM(nf) >= 0, nf, ARG2, s_frame_trace);
+ ASRTER(INUMP(nf) && INUM(nf) >= 0, nf, ARG2, s_frame_trace);
if (!(stkframe = cont_frame(contin, INUM(nf))))
return BOOL_F;
env = stkframe[2];
@@ -521,9 +521,9 @@ SCM scm_frame2env(contin, nf)
SCM contin, nf;
{
SCM *stkframe;
- ASSERT(NIMP(contin) && tc7_contin==TYP7(contin), contin, ARG1,
+ ASRTER(NIMP(contin) && tc7_contin==TYP7(contin), contin, ARG1,
s_frame2env);
- ASSERT(INUMP(nf) && INUM(nf) >= 0, nf, ARG2, s_frame2env);
+ ASRTER(INUMP(nf) && INUM(nf) >= 0, nf, ARG2, s_frame2env);
if (!(stkframe = cont_frame(contin, INUM(nf))))
return BOOL_F;
return stkframe[2];
@@ -534,9 +534,9 @@ SCM scm_frame_eval(contin, nf, expr)
SCM contin, nf, expr;
{
SCM res, env, *stkframe;
- ASSERT(NIMP(contin) && tc7_contin==TYP7(contin), contin, ARG1,
+ ASRTER(NIMP(contin) && tc7_contin==TYP7(contin), contin, ARG1,
s_frame_eval);
- ASSERT(INUMP(nf) && INUM(nf) >= 0, nf, ARG2, s_frame_eval);
+ ASRTER(INUMP(nf) && INUM(nf) >= 0, nf, ARG2, s_frame_eval);
if (!(stkframe = cont_frame(contin, INUM(nf))))
return BOOL_F;
env = stkframe[2];