diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/kernel/Generator.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/kernel/Generator.ml b/lib/kernel/Generator.ml index e4a15f8..f9aafb0 100644 --- a/lib/kernel/Generator.ml +++ b/lib/kernel/Generator.ml @@ -47,8 +47,8 @@ class producer_cursor produce on_release = method! release = (match state with - | `Live _ -> Option.iter (fun f -> f ()) on_release - | `Fresh | `Done -> ()); + | `Fresh | `Live _ -> Option.iter (fun f -> f ()) on_release + | `Done -> ()); state <- `Done end |