From 2d7c5b7c6696f39028ab07064ff75548d71ee5cf Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Thu, 24 Sep 2026 02:16:27 +0000 Subject: Make objects printable --- lib/kernel/Prototype.ml | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib/kernel/Prototype.ml') diff --git a/lib/kernel/Prototype.ml b/lib/kernel/Prototype.ml index 65de68f..1d0751a 100644 --- a/lib/kernel/Prototype.ml +++ b/lib/kernel/Prototype.ml @@ -4,6 +4,8 @@ let mixture ps = Protocols.Handle.make @@ inherit Identity.of_id (* Should we allow the user to override this? *) method protocols = ps + + method to_string = "mixture" end let rec mixture_of value f = -- cgit v1.2.3