Fix fragment bug.

This commit is contained in:
C. Guy Yarvin 2014-09-14 20:27:48 -07:00
parent f3a5835bd9
commit d1c96840a3
5 changed files with 6 additions and 15 deletions

6
g/j.c
View File

@ -108,8 +108,8 @@ _cj_kick_a(u3_noun cor, u3_cs_hood* hud_u, c3_l axe_l)
if ( 0 == ham_u->fun_f ) {
return u3_none;
}
// printf("kick_a: %s\n", ham_u->fcs_c);
return u3_none;
printf("kick_a: %s\n", ham_u->fcs_c);
// return u3_none;
// XX: support tot and ice flags, and validator
//
@ -135,7 +135,7 @@ _cj_kick_b(u3_noun cor, c3_l jax_l, c3_l axe_l)
u3_cs_core* cop_u = &u3D.ray_u[jax_l];
u3_cs_hood* hud_u = cop_u->hud_u;
// printf("kick: %s\n", cop_u->cos_c);
printf("kick: %s\n", cop_u->cos_c);
while ( 1 ) {
if ( 0 == hud_u ) { break; }

2
g/m.c
View File

@ -483,7 +483,7 @@ _cm_in_pretty(u3_noun som, c3_o sel_o, c3_c* str_c)
c3_w a_w = 0;
buf_c[a_w++] = '0';
buf_c[a_w++] = 'e';
buf_c[a_w++] = 'x';
for ( i_w = 0; i_w < len_w; i_w++ ) {
c3_y c_y = u3_cr_byte(len_w - (i_w + 1), som);

9
g/n.c
View File

@ -4,8 +4,6 @@
*/
#include "all.h"
c3_w NOX = 0;
/* _cn_hint(): process hint.
*/
static u3_noun
@ -104,9 +102,6 @@ u3_cn_nock_on(u3_noun bus, u3_noun fol)
hib = u3h(fol);
gal = u3t(fol);
NOX++;
printf("# %d: %x, %x\r\n", NOX, u3_cr_mug(bus), u3_cr_mug(fol));
if ( u3_yes == u3_cr_du(hib) ) {
u3_noun poz, riv;
@ -240,10 +235,6 @@ u3_cn_nock_on(u3_noun bus, u3_noun fol)
u3_noun b_gal, c_gal;
u3_cx_cell(gal, &b_gal, &c_gal);
if ( u3_ne(u3_co_is_cat(b_gal)) ) {
u3_cm_p("bad 9", fol);
}
{
u3_noun seb = u3_cn_nock_on(bus, u3k(c_gal));
u3_noun pro = u3_cj_kick(seb, b_gal);

2
g/r.c
View File

@ -80,7 +80,7 @@ u3_cr_at(u3_atom a,
len_w -= 1;
while ( len_w ) {
b = _frag_deep(a_u->buf_w[len_w], b);
b = _frag_deep(a_u->buf_w[len_w - 1], b);
if ( u3_none == b ) {
return b;

View File

@ -936,7 +936,7 @@
}
}
}
u3_noun
u3_noun
u3_cwe_stew_fun(
u3_noun cor)
{