naive: better style

This commit is contained in:
Philip Monk 2021-05-20 13:07:52 -10:00
parent eb68a42b0d
commit 000f7ca717
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -267,9 +267,9 @@
++ parse-tx
^- (unit [tx _batch])
=^ from-proxy=@ batch (take 0 3)
?: (gth from-proxy 4) (debug %bad-proxy ~)
?. ?=(?(%0 %1 %2 %3 %4) from-proxy) (debug %bad-proxy ~)
=/ =proxy
?+ from-proxy !! :: checked above that lte 4
?- from-proxy
%0 %own
%1 %spawn
%2 %manage