From 4d1a0eea5a433724764b4178d16fcb50d1c2b6bc Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Sat, 29 Jan 2022 18:46:09 +0200
Subject: Add rudimentary step debugger

---
 samples/list.sample | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'samples')

diff --git a/samples/list.sample b/samples/list.sample
index 914522f..b3fc947 100644
--- a/samples/list.sample
+++ b/samples/list.sample
@@ -12,6 +12,13 @@ define append
     $append_val forget $append_phrase forget
     ;
 
+define stack-empty? stack-size 0 eq? ;
+
+define ..
+    [ stack-empty? not ]
+        [ . ] loop
+    ;
+
 [ 2 3 ] 1 prepend .
 [ 2 3 ] 4 append .
-[ 1 2 3 ] pop . .
\ No newline at end of file
+[ 1 2 3 ] pop ..
\ No newline at end of file
-- 
cgit v1.3