Add debug instruction for non-destructive printing of the whole stack

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[]);
+}
+
 }