aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--source/primitives/core.d5
1 files changed, 5 insertions, 0 deletions
diff --git a/source/primitives/core.d b/source/primitives/core.d
index ce3eee2..971f495 100644
--- a/source/primitives/core.d
+++ b/source/primitives/core.d
@@ -31,6 +31,7 @@ bool handle(string word) {
case "false" : nullary_op_value_bool(false); break;
case "<" : binary_cond_lt; break;
case "=" : binary_cond_eq; break;
+ case "#" : debug_print_stack; break;
default : return false;
}
@@ -130,4 +131,8 @@ void binary_cond_eq() {
stack.push(a == b);
}
+void debug_print_stack() {
+ writeln(stack[]);
+}
+
}