]> code.bitgloo.com Git - clyne/forspll.git/commitdiff
fix fibonacci example
authorClyne Sullivan <clyne@bitgloo.com>
Fri, 28 Jun 2024 15:34:08 +0000 (11:34 -0400)
committerClyne Sullivan <clyne@bitgloo.com>
Fri, 28 Jun 2024 15:34:08 +0000 (11:34 -0400)
examples/fibonacci.fp

index 493ca879ffaef9d2d7a22d38c4e672af982ea55f..211a4d3dc4b3b78b698b827c2cf77d225539c9df 100644 (file)
@@ -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
 )