X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fsystems%2Factors.scm;h=ea638c0e180eb5b290f88ef6bde90d36eae2669f;hp=caee695345951eff635d8b4b7ee0901519468134;hb=e268e79621f23cb7d3d9efc78093f0d85b356cdf;hpb=078ed985c17714db5bf9e985728289ba40d313d5

diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm
index caee695..ea638c0 100644
--- a/8sync/systems/actors.scm
+++ b/8sync/systems/actors.scm
@@ -70,7 +70,7 @@
 
             <- <-wait <-reply <-reply-wait
 
-            call-with-message msg-receive =>
+            call-with-message msg-receive
 
             ez-run-hive
             bootstrap-message
@@ -622,12 +622,6 @@ argument.  Similar to call-with-values in concept."
                      (lambda* arglist
                        body ...)))
 
-;; Emacs: (put '=> 'scheme-indent-function 2)
-;;; An experimental alias.
-(define-syntax-rule (=> rest ...)
-  (msg-receive rest ...))
-
-
 
 ;;; Various API methods for actors to interact with the system
 ;;; ==========================================================