From 9fe37b475673e2c703c2bc08e0eba42fc7648ebf Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Wed, 27 Apr 2016 08:24:28 -0500 Subject: [PATCH] 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. --- 8sync/systems/actors.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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 ;;; ========================= -- 2.31.1