View difference between Paste ID: qW4HmFKZ and XSZHh6Py

 (defn pong-named []
-  (receive {:ping (handle-named [{the-message :msg le-payload :payload}]
+  (receive
 	[:ping {the-message :msg le-payload :payload}]
                                 (do (println "[PONG]" the-message "and" le-payload "received.")
                                     (!- "ping" :pong)
-            :stop (handle (println "[PONG] stopping."))}))
+
          [:stop] (handle (println "[PONG] stopping."))))