summaryrefslogtreecommitdiffstats
path: root/cpp/sca/modules/eval/primitive.hpp
diff options
context:
space:
mode:
Diffstat (limited to 'cpp/sca/modules/eval/primitive.hpp')
-rw-r--r--cpp/sca/modules/eval/primitive.hpp6
1 files changed, 3 insertions, 3 deletions
diff --git a/cpp/sca/modules/eval/primitive.hpp b/cpp/sca/modules/eval/primitive.hpp
index c31f276e2f..ece89e077d 100644
--- a/cpp/sca/modules/eval/primitive.hpp
+++ b/cpp/sca/modules/eval/primitive.hpp
@@ -70,13 +70,13 @@ const value valueEqual(list<value>& args) {
}
const value valueAdd(list<value>& args) {
- if (cdr(args) == list<value>())
+ if (isNil(cdr(args)))
return (double)car(args);
return (double)car(args) + (double)cadr(args);
}
const value valueSub(list<value>& args) {
- if (cdr(args) == list<value>())
+ if (isNil(cdr(args)))
return (double)0 - (double)car(args);
return (double)car(args) - (double)cadr(args);
}
@@ -95,7 +95,7 @@ const value valueDisplay(list<value>& args) {
}
const value valueComment(list<value>& args) {
- *evalOut << "# " << car(args);
+ *evalOut << "; " << car(args);
return true;
}