thread id op

2 files changed, 6 insertions, 4 deletions

diff --git a/fib.kpl b/fib.kpl
index a1ba26b..debb6f0 100644
--- a/fib.kpl
+++ b/fib.kpl
@@ -16,7 +16,7 @@
         { `panic "invalid type for n" }
     }
     ? {
-        n < 3 { 2 }
+        n < 2 { 1 }
         { `sync(fib; n - 1) + fib `sync n - 2 }
     }
 )
diff --git a/shared_counter.kpl b/shared_counter.kpl
index d5d9efa..f9ae293 100644
--- a/shared_counter.kpl
+++ b/shared_counter.kpl
@@ -4,13 +4,13 @@
 counter : %shared 0
 
 inc_dec : ([amount]
-    header : %const `format "WHITE#Counter:# "
+    header : "#BOLD#Thread: %#, #WHITE#Counter:# " `format `thread_id
     body : ^ counter {[c]
         c +: amount
         ? {
             amount = 1 { "#GREEN#%#" `format c }
             amount = -1 { "#RED#%#" `format c }
-            { "INVALID" }
+            { "#UNDERLINE#INVALID#" }
         }
     }
     `log ,(header; body; "\n")
@@ -26,7 +26,7 @@ batch : %const 100
 runner : ([fn]
     total : actions
     @ total {
-        `log "#BOLD#WHITE#Batch: #CYAN#% #MAGENTA#%#\n" `format (fn; total)
+        `log "#WHITE#Batch: #CYAN#% #MAGENTA#%#\n" `format (fn; total)
         v : Vector[`async_type fn] $ ()
         @ 1 .. batch { v `push `async fn }
         @ v {[x] `await x }
@@ -37,6 +37,8 @@ runner : ([fn]
 i : runner `async inc
 d : runner `async dec
 
+`log `format "#YELLOW#SLEEPING...#\n"
+
 `use "time" [Seconds]
 `use "sys" [sleep]