move list impl to forsp

1 files changed, 8 insertions, 0 deletions

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