lfe-presentation/quickstart/messenger-back.lfe

(defmodule messenger-back
  (export (print-result 0)
          (send-message 2)))

(defun print-result ()
  (receive
    (`#(,pid ,msg)
     (io:format "Received message: '~s'~n" (list msg))
     (io:format "Sending message to process ~p ...~n" (list pid))
     (! pid `#(,msg))
     (print-result))))

(defun send-message (calling-pid msg)
  (let ((spawned-pid (spawn 'messenger-back 'print-result '())))
    (! spawned-pid (tuple calling-pid msg))))

(defun demo ()
  (messenger-back:send-message (self) "And what does it say now?")
  (messenger-back:send-message (self) "Mostly harmless."))