Mark low-level primitives as unsafe

Author: phischu

libraries/common/io/promise.effekt

@@ -49,7 +49,7 @@ extern {async, global} def await[T](promise: Promise[T]): T =
         val signal = signal::allocate()
         // TODO use reference.set and signal.wait
         set(reference, Pending(Cons(signal, signals)))
-        wait(signal)
+        unsafeWait(signal)
     }
   }
 
@@ -65,7 +65,7 @@ extern {io, global} def resolve[T](promise: Promise[T], value: T): Unit =
         // TODO use reference.set
         set(reference, Resolved(value))
         // TODO use signals.reverse.foreach
-        foreach(reverse(signals)) { signal => send(signal, value) }
+        foreach(reverse(signals)) { signal => unsafeSend(signal, value) }
     }
   }
 

libraries/common/io/signal.effekt

@@ -14,13 +14,13 @@ namespace signal {
     """
 }
 
-extern global def send[T](signal: Signal[T], value: T): Unit =
+extern global def unsafeSend[T](signal: Signal[T], value: T): Unit =
   llvm """
     call void @c_signal_send(%Pos ${signal}, %Pos ${value})
     ret %Pos zeroinitializer
   """
 
-extern async def wait[T](signal: Signal[T]): T =
+extern async def unsafeWait[T](signal: Signal[T]): T =
   llvm """
     call void @c_signal_wait(%Pos ${signal}, %Stack %stack)
     ret void