vaclavt/mlisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

some comments removed

Browse Source
This commit is contained in:
VaclavT
2021-05-21 22:54:31 +02:00
parent 16f9f93944
commit cd8838c37d
1 changed files with 1 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ml.cpp
View File

@@ -223,7 +223,6 @@ std::vector<MlValue> MlValue::as_list() const {
// Push an item to the end of this list
void MlValue::push(MlValue val) {
// If this item is not a list, you cannot push to it.
// Throw an error.
if (type != LIST)
throw MlError(*this, MlEnvironment(), MISMATCHED_TYPES);
@@ -233,7 +232,6 @@ void MlValue::push(MlValue val) {
// Push an item from the end of this list
MlValue MlValue::pop() {
// If this item is not a list, you cannot pop from it.
// Throw an error.
if (type != LIST)
throw MlError(*this, MlEnvironment(), MISMATCHED_TYPES);
@@ -363,8 +361,6 @@ bool MlValue::operator<(const MlValue &other) const {
}
}
// This function adds two lisp values, and returns the lisp value result.
MlValue MlValue::operator+(const MlValue &other) const {
if (other.type == NIL)
throw MlError(*this, MlEnvironment(), INVALID_ARGUMENT_NIL);
@@ -408,7 +404,6 @@ MlValue MlValue::operator+(const MlValue &other) const {
}
}
// This function subtracts two lisp values, and returns the lisp value result.
MlValue MlValue::operator-(const MlValue &other) const {
if (other.type == NIL)
throw MlError(*this, MlEnvironment(), INVALID_ARGUMENT_NIL);
@@ -435,7 +430,6 @@ MlValue MlValue::operator-(const MlValue &other) const {
}
}
// This function multiplies two lisp values, and returns the lisp value result.
MlValue MlValue::operator*(const MlValue &other) const {
if (other.type == NIL)
throw MlError(*this, MlEnvironment(), INVALID_ARGUMENT_NIL);
@@ -460,7 +454,6 @@ MlValue MlValue::operator*(const MlValue &other) const {
}
}
// This function divides two lisp values, and returns the lisp value result.
MlValue MlValue::operator/(const MlValue &other) const {
if (other.type == NIL)
throw MlError(*this, MlEnvironment(), INVALID_ARGUMENT_NIL);
@@ -485,7 +478,6 @@ MlValue MlValue::operator/(const MlValue &other) const {
}
}
// This function finds the remainder of two lisp values, and returns the lisp value result.
MlValue MlValue::operator%(const MlValue &other) const {
if (other.type == NIL)
throw MlError(*this, MlEnvironment(), INVALID_ARGUMENT_NIL);