SHOW:
|
|
- or go back to the newest paste.
| 1 | (defn pong-named [] | |
| 2 | (receive | |
| 3 | [:ping {the-message :msg le-payload :payload}]
| |
| 4 | (do (println "[PONG]" the-message "and" le-payload "received.") | |
| 5 | (!- "ping" :pong) | |
| 6 | (pong))) | |
| 7 | - | [:stop] (handle (println "[PONG] stopping.")))) |
| 7 | + | [:stop] (println "[PONG] stopping."))) |
| 8 | ||
| 9 | ||
| 10 |
