@@ -217,7 +217,7 @@ expression (A region expr) =
217 LoopbackIn name source ->
217 LoopbackIn name source ->
218 case source of
218 case source of
219 Mailbox ->
219 Mailbox ->
220− return $ obj ["_P","writableStream"] `call` [ string name ]
220+ return $ obj ["_P","mailbox"] `call` [ string name ]
222 PromiseStream ->
222 PromiseStream ->
223 return $ obj ["_P","loopbackIn"] `call` [ string name ]
223 return $ obj ["_P","loopbackIn"] `call` [ string name ]