From: Clyne Sullivan <clyne@bitgloo.com>
Date: Fri, 28 Jun 2024 15:34:08 +0000 (-0400)
Subject: fix fibonacci example
X-Git-Url: https://code.bitgloo.com/clyne/sforth/commit/f8fdc3746ca3f4a3b4e913b0bf34ce475eca0bf5/clyne/sforth/commit/f8fdc3746ca3f4a3b4e913b0bf34ce475eca0bf5/git?a=commitdiff_plain;h=3b0bcf53393c86871ae1e40da770b07088e80ddf;p=clyne%2Fforspll.git

fix fibonacci example
---

diff --git a/examples/fibonacci.fp b/examples/fibonacci.fp
index 493ca87..211a4d3 100644
--- a/examples/fibonacci.fp
+++ b/examples/fibonacci.fp
@@ -10,8 +10,8 @@
   (nil eq)            $null?
   ($x x)              $force
   (10 emit)           $cr
-  (print)             $print
-  (4 +)               $cell+
+  (_print)            $print
+  (8 +)               $cell+
   ($a $d 2 alloc $p
     ^a ^p poke
     ^d ^p cell+ poke
@@ -50,7 +50,7 @@
     ) endif
   ) force) $fibonacci
 
-  30 10 range
+  16 0 range
   ^fibonacci map
   ^print each
 )