fixed address bug for legacy addresses

This commit is contained in:
timlucmiptev 2021-07-06 16:52:37 +03:00
parent a8ae8ecf51
commit e95233dc08

View File

@ -57,7 +57,9 @@
~/ %to-cord ~/ %to-cord
|= a=address ^- cord |= a=address ^- cord
?: ?=([%base58 *] a) ?: ?=([%base58 *] a)
(scot %uc +.a) %- crip
%+ slag 2
(trip (scot %uc +.a))
+.a +.a
:: ::
++ from-pubkey ++ from-pubkey