From a8cf2898e1829b479e21b5ddc2f908d2f2754b17 Mon Sep 17 00:00:00 2001
From: Alek Ratzloff <alekratz@gmail.com>
Date: Fri, 11 Feb 2022 10:08:42 -0800
Subject: [PATCH] Add stack printing debug builtin

This function will print the stack without modifying it.

Signed-off-by: Alek Ratzloff <alekratz@gmail.com>
---
 src/vm/builtins.rs | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/vm/builtins.rs b/src/vm/builtins.rs
index b2839d4..4e4f8a5 100644
--- a/src/vm/builtins.rs
+++ b/src/vm/builtins.rs
@@ -144,6 +144,15 @@ impl MachineBuilder {
             }
         });
 
+        self.register_builtin_fun("S", |machine, _reentry| {
+            println!("- TOP");
+            for (i, obj) in machine.stack().iter().enumerate() {
+                println!("{}. {:?}", i, obj);
+            }
+            println!("- BOTTOM");
+            Ok(BuiltinExit::Return)
+        });
+
         /*
         //
         // ==