diff options
author | polwex <polwex@sortug.com> | 2025-10-06 21:27:31 +0700 |
---|---|---|
committer | polwex <polwex@sortug.com> | 2025-10-06 21:27:31 +0700 |
commit | 6ce2c5919f36776fe8aea711b94bbd2d64c8207a (patch) | |
tree | f79796c7ea188ed25a2bb0642bebe6dc0d05409c /ocaml/test/examine_ivory.ml | |
parent | bcbd110b17b3c9bcb0e28e28fd33388f1c954a27 (diff) |
going in circles man
Diffstat (limited to 'ocaml/test/examine_ivory.ml')
-rw-r--r-- | ocaml/test/examine_ivory.ml | 2 |
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 _ -> |