18 lines
526 B
Clojure
Raw Permalink Normal View History

2021-04-09 11:45:48 -05:00
(xor
(seq
(seq
(call relay ("op" "identity") [])
2021-04-25 21:02:53 -05:00
(call relay (echo_service "echo") [names] array_result)
2021-04-09 11:45:48 -05:00
)
(seq
(call relay ("op" "identity") [])
2021-04-25 21:02:53 -05:00
; (call %init_peer_id% (returnService "run") [array_result.$.[0]["echo"]])
2021-04-09 11:45:48 -05:00
(call %init_peer_id% (returnService "run") [array_result])
)
)
(seq
(call relay ("op" "identity") [])
2021-04-25 21:02:53 -05:00
(call %init_peer_id% (returnService "run") ["XOR FAILED: " %last_error%])
2021-04-09 11:45:48 -05:00
)
2021-04-25 21:02:53 -05:00
)