From dc1ef25f1a7f8e36e93928e5b0288e203833e14a Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Fri, 18 Feb 2022 09:39:53 +0200
Subject: Clean up

---
 samples/list.sample | 27 ---------------------------
 1 file changed, 27 deletions(-)
 delete mode 100644 samples/list.sample

(limited to 'samples/list.sample')

diff --git a/samples/list.sample b/samples/list.sample
deleted file mode 100644
index c0fa5da..0000000
--- a/samples/list.sample
+++ /dev/null
@@ -1,27 +0,0 @@
-define prepend
-    $prepend_val !
-    $prepend_phrase !
-    '[ $prepend_val @ $prepend_phrase @ unphrase '] phrase
-    $prepend_val forget $prepend_phrase forget
-    ;
-
-define append
-    $append_val !
-    $append_phrase !
-    '[ $append_phrase @ unphrase $append_val @ '] phrase
-    $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 $1 ! pop $2 ! pop $3 !
-$1 ?
-$2 ?
-$3 ?
-- 
cgit v1.3