From c3545b7ba9e8448226417fab6edaa2d039c9babe Mon Sep 17 00:00:00 2001 From: polwex Date: Mon, 6 Oct 2025 05:34:08 +0700 Subject: wait what? runtime working? --- ocaml/lib/io/behn.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'ocaml/lib/io/behn.ml') diff --git a/ocaml/lib/io/behn.ml b/ocaml/lib/io/behn.ml index 95e1d02..e2ffdac 100644 --- a/ocaml/lib/io/behn.ml +++ b/ocaml/lib/io/behn.ml @@ -75,11 +75,10 @@ let timer_fiber behn ~env ~event_stream timer = Printf.printf "[Behn] Timer %Ld: FIRED! 🔥\n%!" timer.id; (* Create timer ovum and send to event stream *) - let ovum_noun = Nock_lib.Effects.timer_ovum ~id:timer.id ~fire_time:timer.fire_time in - let event = Nock_lib.Noun.cell ovum_noun.wire ovum_noun.card in + let ovum = Nock_lib.Effects.timer_ovum ~id:timer.id ~fire_time:timer.fire_time in (* Send to runtime event stream *) - Eio.Stream.add event_stream event; + Eio.Stream.add event_stream ovum; Printf.printf "[Behn] Timer %Ld: event sent to runtime\n%!" timer.id end else begin Printf.printf "[Behn] Timer %Ld: cancelled, not firing\n%!" timer.id -- cgit v1.2.3