From d0c6994a0c3706a3eb09d32c8bf33513b1dbd3be Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Wed, 12 Apr 2017 18:06:10 +0200
Subject: Implement integer comparsion primitives

---
 src/primitives/eval.d |  4 ++++
 src/primitives/impl.d | 16 ++++++++++++++++
 2 files changed, 20 insertions(+)

diff --git a/src/primitives/eval.d b/src/primitives/eval.d
index 3f91e80..3f52e6d 100644
--- a/src/primitives/eval.d
+++ b/src/primitives/eval.d
@@ -42,6 +42,10 @@ bool evaluate(string word) {
 			return unary_op_stack_dup;
 		case "swp":
 			return binary_op_stack_swp;
+		case "<":
+			return binary_cond_lt;
+		case "=":
+			return binary_cond_eq;
 		default:
 			return false;
 	}
diff --git a/src/primitives/impl.d b/src/primitives/impl.d
index 4ec9019..56ea4ce 100644
--- a/src/primitives/impl.d
+++ b/src/primitives/impl.d
@@ -117,3 +117,19 @@ bool binary_op_stack_swp() {
 
 	return true;
 }
+
+bool binary_cond_lt() {
+	int b = stack.pop.get!int;
+	int a = stack.pop.get!int;
+
+	stack.push(a < b);
+	return true;
+}
+
+bool binary_cond_eq() {
+	int b = stack.pop.get!int;
+	int a = stack.pop.get!int;
+
+	stack.push(a == b);
+	return true;
+}
-- 
cgit v1.2.3