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 %b
?: &(=(1 wid.b.in) (lte dat.b.in 0x7f)) ?: &(=(1 wid.b.in) (lte dat.b.in 0x7f))
dat.b.in dat.b.in
%^ cat 3 dat.b.in =- (can 3 ~[b.in [(met 3 -) -]])
::TODO unsure if this should pass wid or (met 3 dat)...
(encode-length wid.b.in 0x80) (encode-length wid.b.in 0x80)
:: ::
%l %l