diff options
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 _ -> |