From c546646cd46e9b523c3457fa6e867951ac37daba Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Sun, 16 Jun 2024 08:10:59 -0400
Subject: move list impl to forsp

---
 test.fp | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'test.fp')

diff --git a/test.fp b/test.fp
index e4aba6c..2ae975d 100644
--- a/test.fp
+++ b/test.fp
@@ -11,6 +11,14 @@
   ($x x)              $force
   (10 emit)           $cr
   (print)             $print
+  (4 +)               $cell+
+  ($a $d 2 alloc $p
+    ^a ^p poke
+    ^d ^p cell+ poke
+    ^p
+  )                   $cons
+  (peek)              $car
+  (cell+ peek)        $cdr
 
   ; if-stmt
   ($c $t $f c ^f ^t rot cswap $_ force) $if
-- 
cgit v1.2.3