diff options
| author | polwex <polwex@sortug.com> | 2025-10-06 23:06:50 +0700 |
|---|---|---|
| committer | polwex <polwex@sortug.com> | 2025-10-06 23:06:50 +0700 |
| commit | fdab65f6dac4ba85ed4749f61970660d1132d453 (patch) | |
| tree | 427123729c6d556f040bed6a0e461f6d0887c9bf /ocaml/lib/effects.ml | |
| parent | bf4c5ff0fd28d94b7f22552a79e6fbe2561fe6cf (diff) | |
added mutable mugs
Diffstat (limited to 'ocaml/lib/effects.ml')
| -rw-r--r-- | ocaml/lib/effects.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ocaml/lib/effects.ml b/ocaml/lib/effects.ml index f0d9955..84e7602 100644 --- a/ocaml/lib/effects.ml +++ b/ocaml/lib/effects.ml @@ -77,10 +77,10 @@ let make_ovum ~wire ~card = { wire; card } (* Create a timer ovum (from behn) *) let timer_ovum ~id ~fire_time = { - wire = Noun.Atom (Z.of_int64 id); + wire = Noun.Atom { z = Z.of_int64 id; mug = 0l }; card = Noun.cell (Noun.atom 0) (* behn tag - simplified *) - (Noun.Atom (Z.of_float (fire_time *. 1000000.0))); (* microseconds *) + (Noun.Atom { z = Z.of_float (fire_time *. 1000000.0); mug = 0l }); (* microseconds *) } (* Create a log ovum *) |