reduce use of TLS by passing the `Fiber.t` to its function

[c-cube]

spawn : ('a Fiber.t -> 'a) -> 'a Fiber.t so that the fiber is directly in scope in its main function. This means operations like spawn_under or cancel etc. could take a fiber as argument instead of incurring the cost of a TLS lookup?