summaryrefslogtreecommitdiff
path: root/ocaml/test/examine_ivory.ml
diff options
context:
space:
mode:
authorpolwex <polwex@sortug.com>2025-10-06 21:27:31 +0700
committerpolwex <polwex@sortug.com>2025-10-06 21:27:31 +0700
commit6ce2c5919f36776fe8aea711b94bbd2d64c8207a (patch)
treef79796c7ea188ed25a2bb0642bebe6dc0d05409c /ocaml/test/examine_ivory.ml
parentbcbd110b17b3c9bcb0e28e28fd33388f1c954a27 (diff)
going in circles man
Diffstat (limited to 'ocaml/test/examine_ivory.ml')
-rw-r--r--ocaml/test/examine_ivory.ml2
1 files changed, 2 insertions, 0 deletions
diff --git a/ocaml/test/examine_ivory.ml b/ocaml/test/examine_ivory.ml
index 34b5fed..490f735 100644
--- a/ocaml/test/examine_ivory.ml
+++ b/ocaml/test/examine_ivory.ml
@@ -68,6 +68,8 @@ let main env =
Printf.printf " Slot 2 starts with opcode 2 - could be lifecycle formula!\n";
Printf.printf "\n ✓ Tail appears to BE the Arvo core itself!\n";
Printf.printf " This means the lifecycle formula operates on the CORE, not null!\n"
+ | Noun.Cell (Noun.Atom op, _rest) ->
+ Printf.printf " Slot 2 starts with opcode: %s\n" (Z.to_string op)
| _ ->
Printf.printf " Slot 2 doesn't match expected lifecycle formula pattern\n"
with _ ->