zuse: correctly encode leading zeroes in rlp data

This commit is contained in:
Fang 2019-12-14 21:25:20 +01:00
parent 5c56cce6ea
commit 7755bc9718
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -8056,8 +8056,7 @@
%b
?: &(=(1 wid.b.in) (lte dat.b.in 0x7f))
dat.b.in
%^ cat 3 dat.b.in
::TODO unsure if this should pass wid or (met 3 dat)...
=- (can 3 ~[b.in [(met 3 -) -]])
(encode-length wid.b.in 0x80)
::
%l