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