From 3b0bcf53393c86871ae1e40da770b07088e80ddf Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Fri, 28 Jun 2024 11:34:08 -0400 Subject: [PATCH] fix fibonacci example --- examples/fibonacci.fp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 )