2021-04-25 21:02:53 -05:00

18 lines
526 B
Clojure

(xor
(seq
(seq
(call relay ("op" "identity") [])
(call relay (echo_service "echo") [names] array_result)
)
(seq
(call relay ("op" "identity") [])
; (call %init_peer_id% (returnService "run") [array_result.$.[0]["echo"]])
(call %init_peer_id% (returnService "run") [array_result])
)
)
(seq
(call relay ("op" "identity") [])
(call %init_peer_id% (returnService "run") ["XOR FAILED: " %last_error%])
)
)