diff options
Diffstat (limited to 'vere/pkg/noun/vortex.c')
| -rw-r--r-- | vere/pkg/noun/vortex.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/vere/pkg/noun/vortex.c b/vere/pkg/noun/vortex.c index 8496307..0d6d1cf 100644 --- a/vere/pkg/noun/vortex.c +++ b/vere/pkg/noun/vortex.c @@ -25,11 +25,21 @@ u3v_home* u3v_Home; u3_noun u3v_life(u3_noun eve) { + c3_o is_null = u3r_sing(u3_nul, eve); + c3_o is_atom = u3a_is_atom(eve); + c3_o is_cell = u3du(eve); + + u3l_log("u3v_life: eve=%s (atom=%s cell=%s)", + is_null ? "null" : (is_cell ? "cell" : "atom"), + is_atom ? "yes" : "no", + is_cell ? "yes" : "no"); + u3_noun lyf = u3nt(2, u3nc(0, 3), u3nc(0, 2)); u3_noun gat = u3n_nock_on(eve, lyf); u3_noun cor = u3k(u3x_at(7, gat)); u3z(gat); + u3l_log("u3v_life: completed successfully"); return cor; } @@ -45,14 +55,18 @@ u3v_boot(u3_noun eve) u3z(len); } + u3l_log("u3v_boot: processing %llu events", (unsigned long long)len_d); + { u3_noun pro = u3m_soft(0, u3v_life, eve); if ( u3_blip != u3h(pro) ) { + u3l_log("u3v_boot: FAILED - u3v_life returned error"); u3z(pro); return c3n; } + u3l_log("u3v_boot: SUCCESS - kernel built"); u3z(u3A->roc); u3A->roc = u3k(u3t(pro)); u3A->eve_d = len_d; |