use sync insted of call

3 files changed, 12 insertions, 12 deletions

diff --git a/ack.kpl b/ack.kpl
index 63804c8..eeec7ab 100644
--- a/ack.kpl
+++ b/ack.kpl
@@ -11,22 +11,22 @@
     }
     ? {
         m = 0 { n + 1 }
-        &(m > 0; n = 0) { ack `call (m - 1; 1) }
-        { ack `call (m - 1; ack `call (m; n - 1)) }
+        &(m > 0; n = 0) { ack `sync (m - 1; 1) }
+        { ack `sync (m - 1; ack `sync (m; n - 1)) }
     }
 )
 
 `export ack_string : Fn[m; n] $ (
-    "#MAGENTA#ack#(#CYAN#%#, #CYAN#%#) #WHITE#=# #GREEN#%#\n" `format (m; n; ack `call (m; n))
+    "#MAGENTA#ack#(#CYAN#%#, #CYAN#%#) #WHITE#=# #GREEN#%#\n" `format (m; n; ack `sync (m; n))
 )
 
 `is_main Fn $ (
     ( args ) : `use "sys"
     ? 4 != `length args {
          `return `error String $ (
-            "Got: "; " " `join args; "\n"
-            "Usage: "; args `get 0; " "; args `get 1; " <m> <n>\n"
+            "#BOLD#RED#Got %#\n" `format `join args
+            "#BOLD#WHITE#Usage % % <m> <n>#\n" `format (args `get 0; args `get `)
          )
     }
-    `print ack_string `call (U64 $ args `get -2; U64 $ args `get -1)
+    `print ack_string `sync (U64 $ args `get -2; U64 $ args `get -1)
 )
diff --git a/fib.kpl b/fib.kpl
index 501b105..a650f88 100644
--- a/fib.kpl
+++ b/fib.kpl
@@ -17,21 +17,21 @@
     }
     ? {
         n < 3 { 2 }
-        { `call(fib; n - 1) + fib `call n - 2 }
+        { `sync(fib; n - 1) + fib `sync n - 2 }
     }
 )
 
 `export fib_string Fn[n] $ (
-    "#MAGENTA#fib#(#CYAN#%#) #WHITE#=# #GREEN#%#\n" `format (n; fib `call n)
+    "#MAGENTA#fib#(#CYAN#%#) #WHITE#=# #GREEN#%#\n" `format (n; fib `sync n)
 )
 
 `is_main Fn $ (
     ( args ) : `use "sys"
     ? 3 != `length args {
         `return `error String $ (
-            "Got: "; " " `join args; "\n"
-            "Usage: "; args `get 0; " "; args `get 1; " <number>\n"
+            "#BOLD#RED#Got %#\n" `format `join args
+            "#BOLD#WHITE#Usage % % <n>#\n" `format (args `get 0; args `get 1)
          )
     }
-    `print fib_string `call U64 $ args `get -1
+    `print fib_string `sync U64 $ args `get -1
 )
diff --git a/fib_import.kpl b/fib_import.kpl
index d0c48ba..d5a73bb 100644
--- a/fib_import.kpl
+++ b/fib_import.kpl
@@ -4,5 +4,5 @@
 ( fib_string ) : `import "./fib.kpl"
 
 @ 0 .. 30 {[n]
-    `print fib_string `call n
+    `print fib_string `sync n
 }