@fncts/io 0.0.17 → 0.0.19

package/_mjs/Fiber/FiberContext.mjs

@@ -8,41 +8,40 @@ import * as tsplus_module_6 from "@fncts/io/Fiber/api/id";
 import * as tsplus_module_7 from "@fncts/base/typeclass/Equatable/api";
 import * as tsplus_module_8 from "@fncts/io/FiberState/constructors";
 import * as tsplus_module_9 from "@fncts/base/internal/Stack";
-import * as tsplus_module_10 from "@fncts/io/IO/api";
-import * as tsplus_module_11 from "@fncts/base/collection/immutable/HashMap/api";
-import * as tsplus_module_12 from "@fncts/io/FiberRefs/api";
-import * as tsplus_module_13 from "@fncts/io/FiberRefs/join";
-import * as tsplus_module_14 from "@fncts/base/data/Exit/api";
-import * as tsplus_module_15 from "@fncts/base/collection/immutable/Conc";
-import * as tsplus_module_16 from "@fncts/base/collection/immutable/Conc/api/empty";
-import * as tsplus_module_17 from "@fncts/io/Future/api";
-import * as tsplus_module_18 from "@fncts/io/IO/api/environment";
-import * as tsplus_module_19 from "@fncts/io/IO/api/fulfill";
-import * as tsplus_module_20 from "@fncts/io/Future/constructors";
-import * as tsplus_module_21 from "@fncts/base/data/Either/constructors";
-import * as tsplus_module_22 from "@fncts/io/FiberScope/constructors";
-import * as tsplus_module_23 from "@fncts/base/collection/immutable/List/constructors";
-import * as tsplus_module_24 from "@fncts/io/RuntimeConfig";
-import * as tsplus_module_25 from "@fncts/io/Supervisor/constructors";
-import * as tsplus_module_26 from "@fncts/base/data/Cause/api";
-import * as tsplus_module_27 from "@fncts/base/data/Exit/constructors";
-import * as tsplus_module_28 from "@fncts/io/InterruptStatus/constructors";
-import * as tsplus_module_29 from "@fncts/io/Supervisor/api";
-import * as tsplus_module_30 from "@fncts/io/FiberRef/unsafe";
-import * as tsplus_module_31 from "@fncts/base/data/Maybe/api";
-import * as tsplus_module_32 from "@fncts/base/data/exceptions";
-import * as tsplus_module_33 from "@fncts/base/data/FiberId/constructors";
-import * as tsplus_module_34 from "@fncts/io/IO/api/interrupt";
-import * as tsplus_module_35 from "@fncts/io/FiberRef/api";
-import * as tsplus_module_36 from "@fncts/base/collection/immutable/List/definition";
-import * as tsplus_module_37 from "@fncts/base/data/Cause/api/isEmpty";
-import * as tsplus_module_38 from "@fncts/io/FiberStatus/constructors";
-import * as tsplus_module_39 from "@fncts/io/CancellerState";
-import * as tsplus_module_40 from "@fncts/io/FiberState/api";
-import * as tsplus_module_41 from "@fncts/base/data/TraceElement/definition";
-import * as tsplus_module_42 from "@fncts/io/FiberDescriptor";
-import * as tsplus_module_43 from "@fncts/base/collection/immutable/List/api";
-import * as tsplus_module_44 from "@fncts/base/data/Trace/definition";
+import * as tsplus_module_10 from "@fncts/io/FiberRef/unsafe";
+import * as tsplus_module_11 from "@fncts/io/IO/api";
+import * as tsplus_module_12 from "@fncts/base/collection/immutable/HashMap/api";
+import * as tsplus_module_13 from "@fncts/io/FiberRefs/api";
+import * as tsplus_module_14 from "@fncts/io/FiberRefs/join";
+import * as tsplus_module_15 from "@fncts/base/data/Exit/api";
+import * as tsplus_module_16 from "@fncts/base/collection/immutable/Conc";
+import * as tsplus_module_17 from "@fncts/base/collection/immutable/Conc/api/empty";
+import * as tsplus_module_18 from "@fncts/io/Future/api";
+import * as tsplus_module_19 from "@fncts/io/IO/api/environment";
+import * as tsplus_module_20 from "@fncts/io/IO/api/fulfill";
+import * as tsplus_module_21 from "@fncts/io/Future/constructors";
+import * as tsplus_module_22 from "@fncts/base/data/Either/constructors";
+import * as tsplus_module_23 from "@fncts/io/FiberScope/constructors";
+import * as tsplus_module_24 from "@fncts/base/collection/immutable/List/constructors";
+import * as tsplus_module_25 from "@fncts/io/RuntimeConfig";
+import * as tsplus_module_26 from "@fncts/io/Supervisor/constructors";
+import * as tsplus_module_27 from "@fncts/base/data/Cause/api";
+import * as tsplus_module_28 from "@fncts/base/data/Exit/constructors";
+import * as tsplus_module_29 from "@fncts/base/data/exceptions";
+import * as tsplus_module_30 from "@fncts/base/data/FiberId/constructors";
+import * as tsplus_module_31 from "@fncts/io/IO/api/interrupt";
+import * as tsplus_module_32 from "@fncts/io/FiberRef/api";
+import * as tsplus_module_33 from "@fncts/base/data/Maybe/api";
+import * as tsplus_module_34 from "@fncts/base/collection/immutable/List/definition";
+import * as tsplus_module_35 from "@fncts/base/data/Cause/api/isEmpty";
+import * as tsplus_module_36 from "@fncts/io/FiberStatus/constructors";
+import * as tsplus_module_37 from "@fncts/io/CancellerState";
+import * as tsplus_module_38 from "@fncts/io/FiberState/api";
+import * as tsplus_module_39 from "@fncts/base/data/TraceElement/definition";
+import * as tsplus_module_40 from "@fncts/io/FiberDescriptor";
+import * as tsplus_module_41 from "@fncts/io/InterruptStatus/constructors";
+import * as tsplus_module_42 from "@fncts/base/collection/immutable/List/api";
+import * as tsplus_module_43 from "@fncts/base/data/Trace/definition";
 import { AtomicReference } from "@fncts/base/internal/AtomicReference";
 import { Stack } from "@fncts/base/internal/Stack";
 import { FiberTypeId, isFiber } from "@fncts/io/Fiber/definition";
@@ -107,15 +106,15 @@ export class FiberContext {
     this.interruptExit = new InterruptExit(v => {
       if (this.unsafeIsInterruptible) {
         this.interruptStatus.pop();
-        return tsplus_module_10.succeedNow(v, fileName_1 + ":586:27");
+        return tsplus_module_11.succeedNow(v, fileName_1 + ":498:27");
       } else {
-        return tsplus_module_10.succeed(() => {
+        return tsplus_module_11.succeed(() => {
           this.interruptStatus.pop();
           return v;
-        }, fileName_1 + ":588:24");
+        }, fileName_1 + ":500:24");
       }
     });
-    this.currentSupervisor = this.runtimeConfig.supervisor;
+    this.unsafeSetRef(tsplus_module_10.currentSupervisor, this.runtimeConfig.supervisor);
   }
 
   get [tsplus_module_2.hashSymbol]() {
@@ -123,23 +122,23 @@ export class FiberContext {
   }
 
   [tsplus_module_5.equalsSymbol](that) {
-    return isFiber(that) && tsplus_module_7.strictEquals(this.id, tsplus_module_6.id(that, fileName_1 + ":69:44"));
+    return isFiber(that) && tsplus_module_7.strictEquals(this.id, tsplus_module_6.id(that, fileName_1 + ":68:44"));
   }
 
   get poll() {
-    return tsplus_module_10.succeed(() => this.unsafePoll(), fileName_1 + ":89:22");
+    return tsplus_module_11.succeed(() => this.unsafePoll(), fileName_1 + ":87:22");
   }
 
   get inheritRefs() {
-    return tsplus_module_10.defer(() => {
-      const childFiberRefLocals = this.fiberRefLocals.get;
+    return tsplus_module_11.defer(() => {
+      const childFiberRefLocals = this.fiberRefLocals;
 
-      if (tsplus_module_11.isEmpty(childFiberRefLocals)) {
-        return tsplus_module_10.unit;
+      if (tsplus_module_12.isEmpty(childFiberRefLocals)) {
+        return tsplus_module_11.unit;
       } else {
-        return tsplus_module_10.updateFiberRefs((parentFiberId, parentFiberRefs) => tsplus_module_13.join(parentFiberRefs, parentFiberId, tsplus_module_12.make(childFiberRefLocals)), fileName_1 + ":98:34");
+        return tsplus_module_11.updateFiberRefs((parentFiberId, parentFiberRefs) => tsplus_module_14.join(parentFiberRefs, parentFiberId, tsplus_module_13.make(childFiberRefLocals)), fileName_1 + ":96:34");
       }
-    }, fileName_1 + ":93:20");
+    }, fileName_1 + ":91:20");
   }
 
   get id() {
@@ -147,7 +146,7 @@ export class FiberContext {
   }
 
   awaitAsync(k) {
-    const exit = this.unsafeAddObserver(exit => k(tsplus_module_14.flatten(exit)));
+    const exit = this.unsafeAddObserver(exit => k(tsplus_module_15.flatten(exit)));
 
     if (exit != null) {
       k(exit);
@@ -155,33 +154,37 @@ export class FiberContext {
   }
 
   get children() {
-    return this.evalOnIO(tsplus_module_10.succeed(() => {
-      const concBuilder = new tsplus_module_15.ConcBuilder(tsplus_module_16.empty());
+    return this.evalOnIO(tsplus_module_11.succeed(() => {
+      const concBuilder = new tsplus_module_16.ConcBuilder(tsplus_module_17.empty());
 
       for (const child of this._children) {
         concBuilder.append(child);
       }
 
       return concBuilder.result();
-    }, fileName_1 + ":119:17"), tsplus_module_10.succeed(() => tsplus_module_16.empty(), fileName_1 + ":128:17"), fileName_1 + ":118:25");
+    }, fileName_1 + ":117:17"), tsplus_module_11.succeed(() => tsplus_module_17.empty(), fileName_1 + ":126:17"), fileName_1 + ":116:25");
   }
 
   evalOnIO(effect, orElse, __tsplusTrace) {
-    return tsplus_module_10.flatMap_(tsplus_module_18.environment(fileName_1 + ":138:33"), r => tsplus_module_10.flatMap_(tsplus_module_20.make(fileName_1 + ":139:30"), p => tsplus_module_10.flatMap_(this.evalOn(tsplus_module_19.fulfill_(tsplus_module_18.provideEnvironment_(effect, r, fileName_1 + ":140:46"), p, fileName_1 + ":140:57"), tsplus_module_19.fulfill_(tsplus_module_18.provideEnvironment_(orElse, r, fileName_1 + ":140:87"), p, fileName_1 + ":140:98")), () => tsplus_module_17.wait(p, fileName_1 + ":141:17"), fileName_1 + ":140:8"), fileName_1 + ":139:18"), fileName_1 + ":138:18");
+    return tsplus_module_11.flatMap_(tsplus_module_19.environment(fileName_1 + ":136:33"), r => tsplus_module_11.flatMap_(tsplus_module_21.make(fileName_1 + ":137:30"), p => tsplus_module_11.flatMap_(this.evalOn(tsplus_module_20.fulfill_(tsplus_module_19.provideEnvironment_(effect, r, fileName_1 + ":138:46"), p, fileName_1 + ":138:57"), tsplus_module_20.fulfill_(tsplus_module_19.provideEnvironment_(orElse, r, fileName_1 + ":138:87"), p, fileName_1 + ":138:98")), () => tsplus_module_18.wait(p, fileName_1 + ":139:17"), fileName_1 + ":138:8"), fileName_1 + ":137:18"), fileName_1 + ":136:18");
+  }
+
+  get fiberRefs() {
+    return tsplus_module_13.make(this.fiberRefLocals);
   }
 
   get await() {
-    return tsplus_module_10.asyncInterrupt(k => {
-      const cb = x => k(tsplus_module_10.fromExit(() => x, fileName_1 + ":147:78"));
+    return tsplus_module_11.asyncInterrupt(k => {
+      const cb = x => k(tsplus_module_11.fromExit(() => x, fileName_1 + ":149:78"));
 
       const result = this.unsafeAddObserver(cb);
 
       if (result == null) {
-        return tsplus_module_21.left(tsplus_module_10.succeed(() => this.unsafeRemoveObserver(cb), fileName_1 + ":150:38"));
+        return tsplus_module_22.left(tsplus_module_11.succeed(() => this.unsafeRemoveObserver(cb), fileName_1 + ":152:38"));
       } else {
-        return tsplus_module_21.right(tsplus_module_10.succeedNow(result, fileName_1 + ":152:42"));
+        return tsplus_module_22.right(tsplus_module_11.succeedNow(result, fileName_1 + ":154:42"));
       }
-    }, this.fiberId, fileName_1 + ":146:29");
+    }, this.fiberId, fileName_1 + ":148:29");
   }
 
   run() {
@@ -189,23 +192,23 @@ export class FiberContext {
   }
 
   get scope() {
-    return tsplus_module_22.unsafeMake(this);
+    return tsplus_module_23.unsafeMake(this);
   }
 
   get status() {
-    return tsplus_module_10.succeedNow(this.state.status, fileName_1 + ":166:25");
+    return tsplus_module_11.succeedNow(this.state.status, fileName_1 + ":168:25");
   }
 
   get trace() {
-    return tsplus_module_10.succeed(() => this.unsafeCaptureTrace(tsplus_module_23.empty()), fileName_1 + ":170:22");
+    return tsplus_module_11.succeed(() => this.unsafeCaptureTrace(tsplus_module_24.empty()), fileName_1 + ":172:22");
   }
 
   interruptAs(fiberId) {
-    return this.unsafeInterruptAs(fiberId);
+    return tsplus_module_11.apSecond_(this.interruptAsFork(fiberId), this.await, fileName_1 + ":176:50");
   }
 
   evalOn(effect, orElse) {
-    return tsplus_module_10.defer(() => this.unsafeEvalOn(effect, orElse), fileName_1 + ":178:20");
+    return tsplus_module_11.defer(() => this.unsafeEvalOn(effect, orElse), fileName_1 + ":180:20");
   }
 
   get location() {
@@ -224,9 +227,9 @@ export class FiberContext {
       this.nextIO = null;
       let extraTrace = undefined;
       const flags = this.runtimeConfig.flags;
-      const superviseOps = flags.isEnabled(tsplus_module_24.RuntimeConfigFlag.SuperviseOperations) && this.currentSupervisor !== tsplus_module_25.none;
-      this.runtimeConfig.flags.isEnabled(tsplus_module_24.RuntimeConfigFlag.EnableCurrentFiber) && currentFiber.set(this);
-      this.currentSupervisor !== tsplus_module_25.none && this.currentSupervisor.unsafeOnResume(this);
+      const superviseOps = flags.isEnabled(tsplus_module_25.RuntimeConfigFlag.SuperviseOperations) && this.currentSupervisor !== tsplus_module_26.none;
+      this.runtimeConfig.flags.isEnabled(tsplus_module_25.RuntimeConfigFlag.EnableCurrentFiber) && currentFiber.set(this);
+      this.currentSupervisor !== tsplus_module_26.none && this.currentSupervisor.unsafeOnResume(this);
 
       while (current !== null) {
         try {
@@ -238,7 +241,7 @@ export class FiberContext {
 
               if (message !== null) {
                 const oldIO = current;
-                current = tsplus_module_10.flatMap_(message, () => oldIO, fileName_1 + ":215:55");
+                current = tsplus_module_11.flatMap_(message, () => oldIO, fileName_1 + ":217:55");
               } else if (opCount === maxOpCount) {
                 this.unsafeRunLater(current);
                 current = null;
@@ -289,7 +292,7 @@ export class FiberContext {
                         :
                           {
                             extraTrace = current.trace;
-                            this.unsafeRunLater(tsplus_module_10.unit);
+                            this.unsafeRunLater(tsplus_module_11.unit);
                             extraTrace = undefined;
                             current = null;
                             break;
@@ -310,7 +313,7 @@ export class FiberContext {
                   /* IOTag.Trace */
                   :
                     {
-                      current = this.unsafeNextEffect(this.unsafeCaptureTrace(tsplus_module_23.cons(current.trace, tsplus_module_23.nil())));
+                      current = this.unsafeNextEffect(this.unsafeCaptureTrace(tsplus_module_24.cons(current.trace, tsplus_module_24.nil())));
                       break;
                     }
 
@@ -342,25 +345,25 @@ export class FiberContext {
                   /* IOTag.Fail */
                   :
                     {
-                      const fastPathTrace = extraTrace === undefined ? tsplus_module_23.nil() : tsplus_module_23.cons(extraTrace, tsplus_module_23.nil());
+                      const fastPathTrace = extraTrace === undefined ? tsplus_module_24.nil() : tsplus_module_24.cons(extraTrace, tsplus_module_24.nil());
                       extraTrace = undefined;
                       const cause = current.cause();
-                      const tracedCause = tsplus_module_26.isTraced(cause) ? cause : tsplus_module_26.traced(cause, this.unsafeCaptureTrace(tsplus_module_23.cons(current.trace, fastPathTrace)));
+                      const tracedCause = tsplus_module_27.isTraced(cause) ? cause : tsplus_module_27.traced(cause, this.unsafeCaptureTrace(tsplus_module_24.cons(current.trace, fastPathTrace)));
                       const discardedFolds = this.unsafeUnwindStack();
                       const strippedCause = discardedFolds ? // We threw away some error handlers while unwinding the stack because
-                      tsplus_module_26.stripFailures( // We threw away some error handlers while unwinding the stack because
+                      tsplus_module_27.stripFailures( // We threw away some error handlers while unwinding the stack because
                       // we got interrupted during this instruction. So it's not safe to return
                       // typed failures from cause0, because they might not be typed correctly.
                       // Instead, we strip the typed failures, and return the remainders and
                       // the interruption
                       tracedCause) : tracedCause;
                       const suppressed = this.unsafeClearSuppressedCause();
-                      const fullCause = tsplus_module_26.contains_(strippedCause, suppressed) ? strippedCause : tsplus_module_26.then(strippedCause, suppressed);
+                      const fullCause = tsplus_module_27.contains_(strippedCause, suppressed) ? strippedCause : tsplus_module_27.then(strippedCause, suppressed);
 
                       if (!this.stack.hasNext) {
                         // Error not caught, stack is empty:
                         this.unsafeSetInterrupting(true);
-                        current = this.unsafeTryDone(tsplus_module_27.failCause(fullCause), current.trace);
+                        current = this.unsafeTryDone(tsplus_module_28.failCause(fullCause), current.trace);
                       } else {
                         this.unsafeSetInterrupting(false); // Error caught, next continuation on the stack will deal
                         // with it, so we just have to compute it here
@@ -380,29 +383,6 @@ export class FiberContext {
                       break;
                     }
 
-                  case "SetInterrupt"
-                  /* IOTag.SetInterrupt */
-                  :
-                    {
-                      const boolFlag = current.flag.toBoolean;
-
-                      if (this.unsafeIsInterruptible !== boolFlag) {
-                        this.interruptStatus.push(current.flag.toBoolean);
-                        this.unsafeRestoreInterruptStatus();
-                      }
-
-                      current = current.io;
-                      break;
-                    }
-
-                  case "GetInterrupt"
-                  /* IOTag.GetInterrupt */
-                  :
-                    {
-                      current = current.f(tsplus_module_28.fromBoolean(this.unsafeIsInterruptible));
-                      break;
-                    }
-
                   case "Async"
                   /* IOTag.Async */
                   :
@@ -422,7 +402,7 @@ export class FiberContext {
                             if (this.unsafeShouldInterrupt) {
                               if (this.unsafeExitAsync(epoch)) {
                                 this.unsafeSetInterrupting(true);
-                                current = tsplus_module_10.flatMap_(r.left, () => tsplus_module_10.failCauseNow(this.unsafeClearSuppressedCause(), fileName_1 + ":349:67"), fileName_1 + ":349:45");
+                                current = tsplus_module_11.flatMap_(r.left, () => tsplus_module_11.failCauseNow(this.unsafeClearSuppressedCause(), fileName_1 + ":340:67"), fileName_1 + ":340:45");
                               } else {
                                 current = null;
                               }
@@ -454,20 +434,12 @@ export class FiberContext {
                       break;
                     }
 
-                  case "GetDescriptor"
-                  /* IOTag.GetDescriptor */
-                  :
-                    {
-                      current = current.f(this.unsafeGetDescriptor());
-                      break;
-                    }
-
                   case "Yield"
                   /* IOTag.Yield */
                   :
                     {
                       current = null;
-                      this.unsafeRunLater(tsplus_module_10.unit);
+                      this.unsafeRunLater(tsplus_module_11.unit);
                       break;
                     }
 
@@ -487,63 +459,11 @@ export class FiberContext {
                       break;
                     }
 
-                  case "FiberRefModifyAll"
-                  /* IOTag.FiberRefModifyAll */
-                  :
-                    {
-                      const [result, newValue] = current.f(this.fiberId, tsplus_module_12.make(this.fiberRefLocals.get));
-                      this.fiberRefLocals.set(newValue.fiberRefLocals);
-                      current = this.unsafeNextEffect(result);
-                      break;
-                    }
-
-                  case "FiberRefModify"
-                  /* IOTag.FiberRefModify */
-                  :
-                    {
-                      const c = current;
-                      const [result, newValue] = current.f(this.unsafeGetRef(current.fiberRef));
-                      this.unsafeSetRef(c.fiberRef, newValue);
-                      current = this.unsafeNextEffect(result);
-                      break;
-                    }
-
-                  case "FiberRefLocally"
-                  /* IOTag.FiberRefLocally */
-                  :
-                    {
-                      const oldValue = this.unsafeGetRef(current.fiberRef);
-                      const fiberRef = current.fiberRef;
-                      this.unsafeSetRef(fiberRef, current.localValue);
-                      this.unsafeAddFinalizer(tsplus_module_10.succeed(() => {
-                        this.unsafeSetRef(fiberRef, oldValue);
-                      }, fileName_1 + ":413:33"));
-                      current = current.io;
-                      break;
-                    }
-
-                  case "FiberRefDelete"
-                  /* IOTag.FiberRefDelete */
+                  case "Stateful"
+                  /* IOTag.Stateful */
                   :
                     {
-                      this.unsafeDeleteRef(current.fiberRef);
-                      current = this.unsafeNextEffect(undefined);
-                      break;
-                    }
-
-                  case "FiberRefWith"
-                  /* IOTag.FiberRefWith */
-                  :
-                    {
-                      current = current.f(this.unsafeGetRef(current.fiberRef));
-                      break;
-                    }
-
-                  case "GetRuntimeConfig"
-                  /* IOTag.GetRuntimeConfig */
-                  :
-                    {
-                      current = current.f(this.runtimeConfig);
+                      current = current.onState(this, this.state.status);
                       break;
                     }
 
@@ -555,49 +475,6 @@ export class FiberContext {
                       break;
                     }
 
-                  case "Supervise"
-                  /* IOTag.Supervise */
-                  :
-                    {
-                      const oldSupervisor = this.currentSupervisor;
-                      this.currentSupervisor = tsplus_module_29.zip_(current.supervisor, oldSupervisor);
-                      this.unsafeAddFinalizer(tsplus_module_10.succeed(() => {
-                        this.currentSupervisor = oldSupervisor;
-                      }, fileName_1 + ":446:33"));
-                      current = current.io;
-                      break;
-                    }
-
-                  case "GetForkScope"
-                  /* IOTag.GetForkScope */
-                  :
-                    {
-                      current = current.f(tsplus_module_31.getOrElse_(this.unsafeGetRef(tsplus_module_30.forkScopeOverride), () => this.scope));
-                      break;
-                    }
-
-                  case "OverrideForkScope"
-                  /* IOTag.OverrideForkScope */
-                  :
-                    {
-                      const oldForkScopeOverride = this.unsafeGetRef(tsplus_module_30.forkScopeOverride);
-                      this.unsafeSetRef(tsplus_module_30.forkScopeOverride, current.forkScope);
-                      this.unsafeAddFinalizer(tsplus_module_10.succeed(() => {
-                        this.unsafeSetRef(tsplus_module_30.forkScopeOverride, oldForkScopeOverride);
-                      }, fileName_1 + ":463:33"));
-                      current = current.io;
-                      break;
-                    }
-
-                  case "Ensuring"
-                  /* IOTag.Ensuring */
-                  :
-                    {
-                      this.unsafeAddFinalizer(current.finalizer);
-                      current = current.io;
-                      break;
-                    }
-
                   case "Logged"
                   /* IOTag.Logged */
                   :
@@ -607,15 +484,6 @@ export class FiberContext {
                       break;
                     }
 
-                  case "SetRuntimeConfig"
-                  /* IOTag.SetRuntimeConfig */
-                  :
-                    {
-                      this.runtimeConfig = current.runtimeConfig;
-                      current = tsplus_module_10.unit;
-                      break;
-                    }
-
                   default:
                     {
                       console.log("Unrecognized Instruction", current);
@@ -625,16 +493,16 @@ export class FiberContext {
               }
             } else {
               const trace = current.trace;
-              current = tsplus_module_10.failCauseNow(this.unsafeClearSuppressedCause(), trace);
+              current = tsplus_module_11.failCauseNow(this.unsafeClearSuppressedCause(), trace);
               this.unsafeSetInterrupting(true);
             }
 
             opCount++;
           }
         } catch (e) {
-          if (tsplus_module_32.isInterruptedException(e)) {
+          if (tsplus_module_29.isInterruptedException(e)) {
             const trace = current ? current.trace : undefined;
-            current = tsplus_module_34.interruptAs(tsplus_module_33.none, trace);
+            current = tsplus_module_31.interruptAs(tsplus_module_30.none, trace);
             this.unsafeSetInterrupting(true);
           } else if (isIOError(e)) {
             switch (e.exit._tag) {
@@ -647,55 +515,57 @@ export class FiberContext {
               case "Failure":
                 {
                   const trace = current ? current.trace : undefined;
-                  current = tsplus_module_10.failCauseNow(e.exit.cause, trace);
+                  current = tsplus_module_11.failCauseNow(e.exit.cause, trace);
                 }
             }
+          } else if (this.unsafeIsFatal(e)) {
+            this.unsafeHandleFatalError(e);
           } else {
             this.unsafeSetInterrupting(true);
-            current = tsplus_module_10.haltNow(e, fileName_1 + ":525:42");
+            current = tsplus_module_11.haltNow(e, fileName_1 + ":437:42");
           }
         }
       }
     } finally {
       currentFiber.set(null);
-      this.currentSupervisor !== tsplus_module_25.none && this.currentSupervisor.unsafeOnSuspend(this);
+      this.currentSupervisor.unsafeOnSuspend(this);
     }
   }
 
   unsafeRunLater(i0) {
-    this.unsafeGetRef(tsplus_module_30.currentScheduler).scheduleTask(() => {
+    this.unsafeGetRef(tsplus_module_10.currentScheduler).scheduleTask(() => {
       this.nextIO = i0;
       this.runUntil(this.runtimeConfig.yieldOpCount);
     });
   }
 
   unsafeGetRef(ref) {
-    return tsplus_module_31.getOrElse_(tsplus_module_31.map_(tsplus_module_11.get_(this.fiberRefLocals.get, ref), _ => _.head[1]), () => tsplus_module_35.initial(ref));
+    return tsplus_module_33.getOrElse_(tsplus_module_33.map_(tsplus_module_12.get_(this.fiberRefLocals, ref), _ => _.head[1]), () => tsplus_module_32.initial(ref));
   }
 
   unsafeGetRefs(fiberRefLocals) {
-    return tsplus_module_11.map_(fiberRefLocals.get, stack => stack.head[1]);
+    return tsplus_module_12.map_(fiberRefLocals, stack => stack.head[1]);
   }
 
   unsafeSetRef(ref, value) {
-    const oldState = this.fiberRefLocals.get;
-    const oldStack = tsplus_module_31.getOrElse_(tsplus_module_11.get_(oldState, ref), () => tsplus_module_23.empty());
+    const oldState = this.fiberRefLocals;
+    const oldStack = tsplus_module_33.getOrElse_(tsplus_module_12.get_(oldState, ref), () => tsplus_module_24.empty());
     let newStack;
 
-    if (tsplus_module_36.isEmpty(oldStack)) {
-      newStack = tsplus_module_23.cons([this.fiberId, value]);
+    if (tsplus_module_34.isEmpty(oldStack)) {
+      newStack = tsplus_module_24.cons([this.fiberId, value]);
     } else if (tsplus_module_7.strictEquals(oldStack.head[0], this.fiberId)) {
-      newStack = tsplus_module_23.cons([this.fiberId, value], oldStack.tail);
+      newStack = tsplus_module_24.cons([this.fiberId, value], oldStack.tail);
     } else {
-      newStack = tsplus_module_23.cons([this.fiberId, value], oldStack);
+      newStack = tsplus_module_24.cons([this.fiberId, value], oldStack);
     }
 
-    const newState = tsplus_module_11.set_(oldState, ref, newStack);
-    this.fiberRefLocals.set(newState);
+    const newState = tsplus_module_12.set_(oldState, ref, newStack);
+    this.fiberRefLocals = newState;
   }
 
   unsafeDeleteRef(ref) {
-    this.fiberRefLocals.set(tsplus_module_11.remove_(this.fiberRefLocals.get, ref));
+    this.fiberRefLocals = tsplus_module_12.remove_(this.fiberRefLocals, ref);
   }
 
   unsafePoll() {
@@ -716,7 +586,7 @@ export class FiberContext {
     this.stack.push(new Finalizer(finalizer, v => {
       this.unsafeDisableInterruption();
       this.unsafeRestoreInterruptStatus();
-      return tsplus_module_10.map_(finalizer, () => v, fileName_1 + ":600:29");
+      return tsplus_module_11.map_(finalizer, () => v, fileName_1 + ":512:29");
     }));
   }
 
@@ -745,9 +615,9 @@ export class FiberContext {
   }
 
   unsafeAddSuppressedCause(cause) {
-    if (!tsplus_module_37.isEmpty(cause)) {
+    if (!tsplus_module_35.isEmpty(cause)) {
       if (this.state._tag === "Executing") {
-        this.state.suppressed = tsplus_module_26.then(this.state.suppressed, cause);
+        this.state.suppressed = tsplus_module_27.then(this.state.suppressed, cause);
       }
     }
   }
@@ -775,14 +645,14 @@ export class FiberContext {
         case "Finalizer":
           {
             this.unsafeDisableInterruption();
-            this.stack.push(new TracedCont(cause => tsplus_module_10.matchCauseIO_(frame.finalizer, finalizerCause => {
+            this.stack.push(new TracedCont(cause => tsplus_module_11.matchCauseIO_(frame.finalizer, finalizerCause => {
               this.interruptStatus.pop();
               this.unsafeAddSuppressedCause(finalizerCause);
-              return tsplus_module_10.failCauseNow(cause, fileName_1 + ":664:43");
+              return tsplus_module_11.failCauseNow(cause, fileName_1 + ":576:43");
             }, () => {
               this.interruptStatus.pop();
-              return tsplus_module_10.failCauseNow(cause, fileName_1 + ":668:43");
-            }, fileName_1 + ":660:45"), frame.trace));
+              return tsplus_module_11.failCauseNow(cause, fileName_1 + ":580:43");
+            }, fileName_1 + ":572:45"), frame.trace));
             unwinding = false;
             break;
           }
@@ -827,13 +697,13 @@ export class FiberContext {
       const k = this.stack.pop();
       return k.apply(value);
     } else {
-      return this.unsafeTryDone(tsplus_module_27.succeed(value));
+      return this.unsafeTryDone(tsplus_module_28.succeed(value));
     }
   }
 
   unsafeNotifyObservers(v, observers) {
     if (observers.size > 0) {
-      const result = tsplus_module_27.succeed(v);
+      const result = tsplus_module_28.succeed(v);
       observers.forEach(k => k(result));
     }
   }
@@ -844,26 +714,24 @@ export class FiberContext {
     }
   }
 
-  unsafeInterruptAs(fiberId) {
-    const interruptedCause = tsplus_module_26.interrupt(fiberId);
-    return tsplus_module_10.defer(() => {
+  interruptAsFork(fiberId) {
+    const interruptedCause = tsplus_module_27.interrupt(fiberId);
+    return tsplus_module_11.succeed(() => {
       const oldState = this.state;
 
       if (this.state._tag === "Executing" && this.state.status._tag === "Suspended" && this.state.status.interruptible && this.state.asyncCanceller._tag === "Registered") {
         const asyncCanceller = this.state.asyncCanceller.asyncCanceller;
-        const interrupt = tsplus_module_10.failCauseNow(interruptedCause, fileName_1 + ":738:52");
-        this.state.status = tsplus_module_38.running(true);
+        const interrupt = tsplus_module_11.failCauseNow(interruptedCause, fileName_1 + ":650:52");
+        this.state.status = tsplus_module_36.running(true);
         this.state.interruptors = new Set(oldState.interruptors).add(fiberId);
-        this.state.asyncCanceller = tsplus_module_39.empty;
-        this.unsafeRunLater(tsplus_module_10.flatMap_(asyncCanceller, () => interrupt, fileName_1 + ":742:60"));
+        this.state.asyncCanceller = tsplus_module_37.empty;
+        this.unsafeRunLater(tsplus_module_11.flatMap_(asyncCanceller, () => interrupt, fileName_1 + ":654:60"));
       } else if (this.state._tag === "Executing") {
-        const newCause = tsplus_module_26.then(this.state.suppressed, interruptedCause);
+        const newCause = tsplus_module_27.then(this.state.suppressed, interruptedCause);
         this.state.interruptors.add(fiberId);
         this.state.suppressed = newCause;
       }
-
-      return this.await;
-    }, fileName_1 + ":729:20");
+    }, fileName_1 + ":641:14");
   }
 
   unsafeTryDone(exit, trace) {
@@ -881,16 +749,16 @@ export class FiberContext {
             const mailbox = this.state.mailbox;
             this.state.mailbox = null;
             this.unsafeSetInterrupting(true);
-            return tsplus_module_10.flatMap_(mailbox, () => tsplus_module_10.fromExit(() => exit, fileName_1 + ":764:60"), fileName_1 + ":764:42");
+            return tsplus_module_11.flatMap_(mailbox, () => tsplus_module_11.fromExit(() => exit, fileName_1 + ":675:60"), fileName_1 + ":675:42");
           } else if (this._children.size === 0) {
             // We are truly "done" because all the children of this fiber have terminated,
             // and there are no more pending effects that we have to execute on the fiber.
-            const interruptorsCause = tsplus_module_40.interruptorsCause(this.state);
-            const newExit = tsplus_module_37.isEmpty(interruptorsCause) ? exit : tsplus_module_14.mapErrorCause_(exit, cause => {
-              if (tsplus_module_26.contains_(cause, interruptorsCause)) {
+            const interruptorsCause = tsplus_module_38.interruptorsCause(this.state);
+            const newExit = tsplus_module_35.isEmpty(interruptorsCause) ? exit : tsplus_module_15.mapErrorCause_(exit, cause => {
+              if (tsplus_module_27.contains_(cause, interruptorsCause)) {
                 return cause;
               } else {
-                return tsplus_module_26.then(cause, interruptorsCause);
+                return tsplus_module_27.then(cause, interruptorsCause);
               }
             });
             const observers = this.state.observers;
@@ -901,26 +769,26 @@ export class FiberContext {
           } else {
             // not done because there are children left to close
             this.unsafeSetInterrupting(true);
-            let interruptChildren = tsplus_module_10.unit;
+            let interruptChildren = tsplus_module_11.unit;
 
             this._children.forEach(child => {
-              interruptChildren = tsplus_module_10.flatMap_(interruptChildren, () => child.interruptAs(this.fiberId), fileName_1 + ":796:58");
+              interruptChildren = tsplus_module_11.flatMap_(interruptChildren, () => child.interruptAs(this.fiberId), fileName_1 + ":707:58");
             });
 
             this._children.clear();
 
-            return tsplus_module_10.flatMap_(interruptChildren, () => tsplus_module_10.fromExit(() => exit, fileName_1 + ":800:70"), fileName_1 + ":800:52");
+            return tsplus_module_11.flatMap_(interruptChildren, () => tsplus_module_11.fromExit(() => exit, fileName_1 + ":711:70"), fileName_1 + ":711:52");
           }
         }
     }
   }
 
   unsafeSetAsyncCanceller(epoch, asyncCanceller0) {
-    const asyncCanceller = !asyncCanceller0 ? tsplus_module_10.unit : asyncCanceller0;
+    const asyncCanceller = !asyncCanceller0 ? tsplus_module_11.unit : asyncCanceller0;
 
     if (this.state._tag === "Executing") {
       if (this.state.status._tag === "Suspended" && this.state.asyncCanceller._tag === "Pending" && this.state.status.epoch === epoch) {
-        this.state.asyncCanceller = tsplus_module_39.registered(asyncCanceller);
+        this.state.asyncCanceller = tsplus_module_37.registered(asyncCanceller);
       } else if (this.state.status._tag === "Suspended" && this.state.asyncCanceller._tag === "Registered" && this.state.status.epoch === epoch) {
         throw new Error("inconsistent state in setAsyncCanceller");
       }
@@ -956,18 +824,18 @@ export class FiberContext {
     if (this.state._tag === "Executing" && this.state.status._tag === "Running"
     /* FiberStatusTag.Running */
     && this.state.asyncCanceller._tag === "Empty") {
-      const newStatus = tsplus_module_38.suspended(this.state.status.interrupting, this.unsafeIsInterruptible && !this.unsafeIsInterrupting, epoch, blockingOn, trace);
+      const newStatus = tsplus_module_36.suspended(this.state.status.interrupting, this.unsafeIsInterruptible && !this.unsafeIsInterrupting, epoch, blockingOn, trace);
       this.state.status = newStatus;
-      this.state.asyncCanceller = tsplus_module_39.pending;
+      this.state.asyncCanceller = tsplus_module_37.pending;
     } else {
-      throw new tsplus_module_32.IllegalStateError(`Fiber ${tsplus_module_3.threadName(this.fiberId)} is not running`);
+      throw new tsplus_module_29.IllegalStateError(`Fiber ${tsplus_module_3.threadName(this.fiberId)} is not running`);
     }
   }
 
   unsafeExitAsync(epoch) {
     if (this.state._tag === "Executing" && this.state.status._tag === "Suspended" && this.state.status.epoch === epoch) {
-      this.state.status = tsplus_module_38.running(this.state.status.interrupting);
-      this.state.asyncCanceller = tsplus_module_39.empty;
+      this.state.status = tsplus_module_36.running(this.state.status.interrupting);
+      this.state.asyncCanceller = tsplus_module_37.empty;
       return true;
     }
 
@@ -983,31 +851,22 @@ export class FiberContext {
   }
 
   unsafeFork(io, forkScope = tsplus_module_1.nothing(), trace) {
-    const childId = tsplus_module_33.unsafeMake(tsplus_module_41.parse(trace));
-    const childFiberRefLocals = tsplus_module_11.mapWithIndex_(this.fiberRefLocals.get, (fiberRef, stack) => {
-      const oldValue = stack.head[1];
-      const newValue = tsplus_module_35.patch(fiberRef)(tsplus_module_35.fork(fiberRef))(oldValue);
-
-      if (oldValue === newValue) {
-        return stack;
-      } else {
-        return tsplus_module_23.cons([childId, newValue], stack);
-      }
-    });
-    const parentScope = tsplus_module_31.getOrElse_(tsplus_module_31.orElse_(forkScope, () => this.unsafeGetRef(tsplus_module_30.forkScopeOverride)), () => this.scope);
+    const childId = tsplus_module_30.unsafeMake(tsplus_module_39.parse(trace));
+    const childFiberRefLocals = tsplus_module_13.forkAs(this.fiberRefs, childId).fiberRefLocals;
+    const parentScope = tsplus_module_33.getOrElse_(tsplus_module_33.orElse_(forkScope, () => this.unsafeGetRef(tsplus_module_10.forkScopeOverride)), () => this.scope);
     const grandChildren = new Set();
-    const childContext = new FiberContext(childId, this.runtimeConfig, tsplus_module_9.single(this.unsafeIsInterruptible), new AtomicReference(childFiberRefLocals), grandChildren);
+    const childContext = new FiberContext(childId, this.runtimeConfig, tsplus_module_9.single(this.unsafeIsInterruptible), childFiberRefLocals, grandChildren);
 
-    if (this.currentSupervisor !== tsplus_module_25.none) {
-      this.currentSupervisor.unsafeOnStart(this.unsafeGetRef(tsplus_module_30.currentEnvironment), io, tsplus_module_1.just(this), childContext);
+    if (this.currentSupervisor !== tsplus_module_26.none) {
+      this.currentSupervisor.unsafeOnStart(this.unsafeGetRef(tsplus_module_10.currentEnvironment), io, tsplus_module_1.just(this), childContext);
       childContext.unsafeOnDone(exit => {
-        this.currentSupervisor.unsafeOnEnd(tsplus_module_14.flatten(exit), childContext);
+        this.currentSupervisor.unsafeOnEnd(tsplus_module_15.flatten(exit), childContext);
       });
     }
 
-    const childIO = !parentScope.unsafeAdd(childContext) ? tsplus_module_34.interruptAs(parentScope.fiberId, fileName_1 + ":929:74") : io;
+    const childIO = !parentScope.unsafeAdd(childContext) ? tsplus_module_31.interruptAs(parentScope.fiberId, fileName_1 + ":832:74") : io;
     childContext.nextIO = childIO;
-    this.unsafeGetRef(tsplus_module_30.currentScheduler).scheduleTask(() => childContext.runUntil(this.runtimeConfig.yieldOpCount));
+    this.unsafeGetRef(tsplus_module_10.currentScheduler).scheduleTask(() => childContext.runUntil(this.runtimeConfig.yieldOpCount));
     return childContext;
   }
 
@@ -1017,7 +876,7 @@ export class FiberContext {
     if (exit == null) {
       return;
     } else {
-      k(tsplus_module_27.succeed(exit));
+      k(tsplus_module_28.succeed(exit));
     }
   }
 
@@ -1026,26 +885,26 @@ export class FiberContext {
       case "Executing":
         {
           const suppressed = this.state.suppressed;
-          this.state.suppressed = tsplus_module_26.empty();
+          this.state.suppressed = tsplus_module_27.empty();
           return suppressed;
         }
 
       case "Done":
         {
-          return tsplus_module_26.empty();
+          return tsplus_module_27.empty();
         }
     }
   }
 
   unsafeGetDescriptor() {
-    return new tsplus_module_42.FiberDescriptor(this.fiberId, this.state.status, this.state.interruptors, tsplus_module_28.fromBoolean(this.unsafeIsInterruptible), this.scope);
+    return new tsplus_module_40.FiberDescriptor(this.fiberId, this.state.status, this.state.interruptors, tsplus_module_41.fromBoolean(this.unsafeIsInterruptible), this.scope);
   }
 
   unsafeRace(race) {
     const raceIndicator = new AtomicReference(true);
     const left = this.unsafeFork(race.left, tsplus_module_1.nothing(), race.trace);
     const right = this.unsafeFork(race.right, tsplus_module_1.nothing(), race.trace);
-    return tsplus_module_10.async(cb => {
+    return tsplus_module_11.async(cb => {
       const leftRegister = left.unsafeAddObserver(() => {
         this.unsafeCompleteRace(left, right, race.leftWins, raceIndicator, cb);
       });
@@ -1061,7 +920,7 @@ export class FiberContext {
           this.unsafeCompleteRace(right, left, race.rightWins, raceIndicator, cb);
         }
       }
-    }, tsplus_module_3.combine_(left.fiberId, right.fiberId), fileName_1 + ":978:20");
+    }, tsplus_module_3.combine_(left.fiberId, right.fiberId), fileName_1 + ":881:20");
   }
 
   unsafeCompleteRace(winner, loser, cont, ab, cb) {
@@ -1072,23 +931,23 @@ export class FiberContext {
 
   unsafeCaptureTrace(prefix) {
     const builder = new StackTraceBuilder();
-    tsplus_module_43.forEach_(prefix, element => builder.append(tsplus_module_41.parse(element)));
+    tsplus_module_42.forEach_(prefix, element => builder.append(tsplus_module_39.parse(element)));
     const stack = this.stack.clone();
 
     while (stack.hasNext) {
-      builder.append(tsplus_module_41.parse(stack.pop().trace));
+      builder.append(tsplus_module_39.parse(stack.pop().trace));
     }
 
-    return new tsplus_module_44.Trace(this.fiberId, builder.result());
+    return new tsplus_module_43.Trace(this.fiberId, builder.result());
   }
 
   unsafeEvalOn(effect, orElse) {
     if (this.state._tag === "Executing") {
-      const newMailbox = this.state.mailbox == null ? effect : tsplus_module_10.flatMap_(this.state.mailbox, () => effect, fileName_1 + ":1022:92");
+      const newMailbox = this.state.mailbox == null ? effect : tsplus_module_11.flatMap_(this.state.mailbox, () => effect, fileName_1 + ":925:92");
       this.state.mailbox = newMailbox;
-      return tsplus_module_10.unit;
+      return tsplus_module_11.unit;
     } else {
-      return tsplus_module_10.asUnit(orElse, fileName_1 + ":1026:20");
+      return tsplus_module_11.asUnit(orElse, fileName_1 + ":929:20");
     }
   }
 
@@ -1103,39 +962,51 @@ export class FiberContext {
   }
 
   unsafeAddChild(child) {
-    this.unsafeEvalOn(tsplus_module_10.succeed(() => {
+    this.unsafeEvalOn(tsplus_module_11.succeed(() => {
       this._children.add(child);
-    }, fileName_1 + ":1042:17"), tsplus_module_10.unit);
+    }, fileName_1 + ":945:17"), tsplus_module_11.unit);
   }
 
   unsafeLog(message, trace) {
-    const logLevel = this.unsafeGetRef(tsplus_module_30.currentLogLevel);
-    const spans = this.unsafeGetRef(tsplus_module_30.currentLogSpan);
-    const annotations = this.unsafeGetRef(tsplus_module_30.currentLogAnnotations);
-    this.runtimeConfig.logger.log(tsplus_module_41.parse(trace), this.fiberId, logLevel, message, tsplus_module_26.empty(), this.fiberRefLocals.get, spans, annotations);
+    const logLevel = this.unsafeGetRef(tsplus_module_10.currentLogLevel);
+    const spans = this.unsafeGetRef(tsplus_module_10.currentLogSpan);
+    const annotations = this.unsafeGetRef(tsplus_module_10.currentLogAnnotations);
+    this.runtimeConfig.logger.log(tsplus_module_39.parse(trace), this.fiberId, logLevel, message, tsplus_module_27.empty(), this.fiberRefLocals, spans, annotations);
   }
 
   unsafeLogWith(message, cause, overrideLogLevel, overrideRef1 = null, overrideValue1 = null, trace) {
-    const logLevel = tsplus_module_31.getOrElse_(overrideLogLevel, () => this.unsafeGetRef(tsplus_module_30.currentLogLevel));
-    const spans = this.unsafeGetRef(tsplus_module_30.currentLogSpan);
-    const annotations = this.unsafeGetRef(tsplus_module_30.currentLogAnnotations);
+    const logLevel = tsplus_module_33.getOrElse_(overrideLogLevel, () => this.unsafeGetRef(tsplus_module_10.currentLogLevel));
+    const spans = this.unsafeGetRef(tsplus_module_10.currentLogSpan);
+    const annotations = this.unsafeGetRef(tsplus_module_10.currentLogAnnotations);
     let contextMap;
 
     if (overrideRef1 !== null) {
       const map = this.unsafeGetRefs(this.fiberRefLocals);
 
       if (overrideValue1 === null) {
-        tsplus_module_11.remove_(map, overrideRef1);
+        tsplus_module_12.remove_(map, overrideRef1);
       } else {
-        tsplus_module_11.set_(map, overrideRef1, overrideValue1);
+        tsplus_module_12.set_(map, overrideRef1, overrideValue1);
       }
 
       contextMap = map;
     } else {
-      contextMap = this.fiberRefLocals.get;
+      contextMap = this.fiberRefLocals;
     }
 
-    this.runtimeConfig.logger.log(tsplus_module_41.parse(trace), this.fiberId, logLevel, message, cause, contextMap, spans, annotations);
+    this.runtimeConfig.logger.log(tsplus_module_39.parse(trace), this.fiberId, logLevel, message, cause, contextMap, spans, annotations);
+  }
+
+  unsafeIsFatal(t) {
+    return this.unsafeGetRef(tsplus_module_10.currentIsFatal).apply(t);
+  }
+
+  unsafeHandleFatalError(t) {
+    return this.unsafeGetRef(tsplus_module_10.currentReportFatal)(t);
+  }
+
+  get currentSupervisor() {
+    return this.unsafeGetRef(tsplus_module_10.currentSupervisor);
   }
 
 }