From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Wed, 27 Apr 2016 13:24:28 +0000 (-0500)
Subject: actors: Define "<-" type aliases for send-message and friends.
X-Git-Tag: v0.2.0~21
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=9fe37b475673e2c703c2bc08e0eba42fc7648ebf;p=8sync.git

actors: Define "<-" type aliases for send-message and friends.

* 8sync/systems/actors.scm (<-, <-wait, <-reply, <-reply-wait): Aliases
  for send-message, send-message-wait, reply-message, reply-message-wait
  respectively.
---

diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm
index 9009d30..fb170bc 100644
--- a/8sync/systems/actors.scm
+++ b/8sync/systems/actors.scm
@@ -71,6 +71,8 @@
             send-message send-message-wait
             reply-message reply-message-wait
 
+            <- <-wait <-reply <-reply-wait
+
             ez-run-hive
             bootstrap-message
 
@@ -246,6 +248,16 @@ If key not found and DFLT not provided, throw an error."
     (abort-to-prompt abort-to from-actor new-message)))
 
 
+;;; Aliases!
+;;; See: http://mumble.net/~jar/articles/oo-moon-weinreb.html
+;;;   (also worth seeing: http://mumble.net/~jar/articles/oo.html )
+
+(define <- send-message)
+(define <-wait send-message-wait)
+(define <-reply reply-message)
+(define <-reply-wait reply-message-wait)
+
+
 
 ;;; Main actor implementation
 ;;; =========================