From d5ea77e49e30ad751678f90123f891344642a36c Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Wed, 12 Apr 2017 21:55:26 +0200
Subject: Introduce native boolean type

---
 src/primitives/eval.d | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/primitives/eval.d')

diff --git a/src/primitives/eval.d b/src/primitives/eval.d
index 533f491..d62fdb8 100644
--- a/src/primitives/eval.d
+++ b/src/primitives/eval.d
@@ -6,6 +6,10 @@ bool evaluate(int value) {
 	return drop_mode;
 }
 
+bool evaluate(bool value) {
+	return drop_mode;
+}
+
 bool evaluate(string word) {
 	if ( drop_mode ) {
 		switch ( word ) {
@@ -47,6 +51,10 @@ bool evaluate(string word) {
 			return unary_op_stack_dup;
 		case "swp":
 			return binary_op_stack_swp;
+		case "true":
+			return integral_value_bool(true);
+		case "false":
+			return integral_value_bool(false);
 		case "<":
 			return binary_cond_lt;
 		case "=":
-- 
cgit v1.2.3