From 74dc454176fdc8998cb4c4072813de8ccf2dabae Mon Sep 17 00:00:00 2001
From: nodist <kevin.comas.git@gmail.com>
Date: Fri, 22 May 2026 13:13:25 -0400
Subject: use call for fn calling sync

---
 ack.kpl        | 8 ++++----
 fib.kpl        | 6 +++---
 fib_import.kpl | 2 +-
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/ack.kpl b/ack.kpl
index 44df478..912ab34 100644
--- a/ack.kpl
+++ b/ack.kpl
@@ -11,13 +11,13 @@
     }
     ? {
         m = 0 { n + 1 }
-        &(m > 0; n = 0) { ack `sync (m - 1; 1) }
-        { ack `sync (m - 1; ack `sync (m; n - 1)) }
+        &(m > 0; n = 0) { ack `call (m - 1; 1) }
+        { ack `call (m - 1; ack `call (m; n - 1)) }
     }
 )
 
 `export ack_string : Fn[m; n] $ (
-    String $ ("ack("; m; " "; n; ") = "; ack `sync (m; n); "\n")
+    String $ ("ack("; m; " "; n; ") = "; ack `call (m; n); "\n")
 )
 
 `is_main Fn $ (
@@ -28,5 +28,5 @@
             "Usage: "; args `get 0; " "; args `get 1; " <m> <n>\n"
          )
     }
-    `print ack_string `sync (I64 $ args `get -2; I64 $ args `get -1)
+    `print ack_string `call (U64 $ args `get -2; U64 $ args `get -1)
 )
diff --git a/fib.kpl b/fib.kpl
index 8f003ee..4ce8a91 100644
--- a/fib.kpl
+++ b/fib.kpl
@@ -17,12 +17,12 @@
     }
     ? {
         n < 3 { 2 }
-        { `sync(fib; n - 1) + fib `sync n - 2 }
+        { `call(fib; n - 1) + fib `call n - 2 }
     }
 )
 
 `export fib_string Fn[n] $ (
-    String $ ("fib("; n; ") = "; fib `sync n; "\n")
+    String $ ("fib("; n; ") = "; fib `call n; "\n")
 )
 
 `is_main Fn $ (
@@ -33,5 +33,5 @@
             "Usage: "; args `get 0; " "; args `get 1; " <number>\n"
          )
     }
-    `print fib_string `sync I64 $ args `get -1
+    `print fib_string `call U64 $ args `get -1
 )
diff --git a/fib_import.kpl b/fib_import.kpl
index 478e8ab..4f53604 100644
--- a/fib_import.kpl
+++ b/fib_import.kpl
@@ -4,5 +4,5 @@
 ( fib_string ) : `import "./fib.kpl"
 
 @ 0 .. 30 {
-    `print fib_string `sync n
+    `print fib_string `call n
 }[n]
-- 
cgit v1.2.3