diff options
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 *) |