aboutsummaryrefslogtreecommitdiff
path: root/model.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'model.cpp')
-rw-r--r--model.cpp4
1 files changed, 2 insertions, 2 deletions
diff --git a/model.cpp b/model.cpp
index 3573339..87e6b69 100644
--- a/model.cpp
+++ b/model.cpp
@@ -38,7 +38,7 @@ bool EvalObj::is_opt_obj() {
}
bool EvalObj::is_pair_obj() {
- return this != empty_list && (otype & CLS_CONS_OBJ);
+ return this != empty_list && (otype & CLS_PAIR_OBJ);
}
@@ -86,7 +86,7 @@ string EvalObj::ext_repr() {
}
Pair::Pair(EvalObj *_car, EvalObj *_cdr) :
- EvalObj(CLS_CONS_OBJ), car(_car), cdr(_cdr), skip(false),
+ EvalObj(CLS_PAIR_OBJ), car(_car), cdr(_cdr), skip(false),
next(NULL) {}
ReprCons *Pair::get_repr_cons() {