going in circles man

1 files changed, 13 insertions, 2 deletions

diff --git a/vere/pkg/noun/nock.c b/vere/pkg/noun/nock.c
index 8de6d7e..959ec96 100644
--- a/vere/pkg/noun/nock.c
+++ b/vere/pkg/noun/nock.c
@@ -2920,12 +2920,23 @@ static u3_noun
 _n_burn_on(u3_noun bus, u3_noun fol)
 {
   static c3_w burn_count = 0;
-  if ( burn_count < 30 ) {
+  if ( burn_count < 500 ) {  // Increased to 500 to capture solid pill boot
     u3_noun hib = u3h(fol);
     if ( c3y == u3du(hib) ) {
       u3l_log("[C-Burn:%u] cell-cell formula", burn_count);
     } else {
       u3l_log("[C-Burn:%u] opcode %u", burn_count, hib);
+      // For call #1, dump more details
+      if ( burn_count == 1 ) {
+        u3_noun gal = u3t(fol);
+        u3l_log("[C-Burn:1-DEBUG] gal is %s", (c3y == u3du(gal)) ? "cell" : "atom");
+        if ( c3y == u3du(gal) ) {
+          u3_noun gal_h = u3h(gal);
+          u3l_log("[C-Burn:1-DEBUG] head(gal) is %s, val=%u",
+                  (c3y == u3du(gal_h)) ? "cell" : "atom",
+                  (c3y == u3du(gal_h)) ? u3h(gal_h) : gal_h);
+        }
+      }
     }
     burn_count++;
   }
@@ -2944,7 +2955,7 @@ u3n_nock_on(u3_noun bus, u3_noun fol)
   u3_noun pro;
 
   static c3_w call_count = 0;
-  if ( call_count < 10 ) {
+  if ( call_count < 100 ) {  // Increased to 100
     u3l_log(">>> u3n_nock_on call #%u <<<", call_count);
     call_count++;
   }