Tweak to reduce stack usage

polytypic · polytypic · commit cce016e27113 · 2024-10-14T02:52:51.000+03:00
diff --git a/lib/picos/picos.ocaml5.ml b/lib/picos/picos.ocaml5.ml
@@ -469,10 +469,10 @@ module Fiber = struct
     else
       match body (r.forbid <- forbid) with
       | value ->
-          r.forbid <- not forbid;
+          r.forbid <- not r.forbid;
           value
       | exception exn ->
-          r.forbid <- not forbid;
+          r.forbid <- not r.forbid;
           raise exn
 
   let forbid t body = explicitly t body ~forbid:true
