pier: fix jamming archive

This commit is contained in:
Liam Fitzgerald 2022-11-14 15:19:35 +10:00 committed by Joe Bryan
parent 6dea612849
commit e1e0ca76d8

View File

@ -492,8 +492,12 @@ _pier_on_scry_done(void* ptr_v, u3_noun nun)
{ {
u3_atom puf = u3i_string(u3_Host.ops_u.puf_c); u3_atom puf = u3i_string(u3_Host.ops_u.puf_c);
if ( c3y == u3r_sing(c3__jam, puf) ) { if ( c3y == u3r_sing(c3__jam, puf) ) {
out = u3qe_jam(res); c3_d len_d;
c3_y* byt_y;
u3s_jam_xeno(res, &len_d, &byt_y);
out = u3i_bytes(len_d, byt_y);
ext_c = "jam"; ext_c = "jam";
free(byt_y);
} }
else if ( c3y == u3a_is_atom(res) ) { else if ( c3y == u3a_is_atom(res) ) {
out = u3dc("scot", u3k(puf), u3k(res)); out = u3dc("scot", u3k(puf), u3k(res));