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 ++ parse-tx
^- (unit [tx _batch]) ^- (unit [tx _batch])
=^ from-proxy=@ batch (take 0 3) =^ from-proxy=@ batch (take 0 3)
?: (gth from-proxy 4) (debug %bad-proxy ~) ?. ?=(?(%0 %1 %2 %3 %4) from-proxy) (debug %bad-proxy ~)
=/ =proxy =/ =proxy
?+ from-proxy !! :: checked above that lte 4 ?- from-proxy
%0 %own %0 %own
%1 %spawn %1 %spawn
%2 %manage %2 %manage