From d1c96840a3d14fa24519425c218c87674d5dc3db Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Sun, 14 Sep 2014 20:27:48 -0700
Subject: [PATCH] Fix fragment bug.

---
 g/j.c       | 6 +++---
 g/m.c       | 2 +-
 g/n.c       | 9 ---------
 g/r.c       | 2 +-
 j/5/parse.c | 2 +-
 5 files changed, 6 insertions(+), 15 deletions(-)

diff --git a/g/j.c b/g/j.c
index ac41ce82f..9d0b4f993 100644
--- a/g/j.c
+++ b/g/j.c
@@ -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; }
diff --git a/g/m.c b/g/m.c
index cea048467..e65de5bc4 100644
--- a/g/m.c
+++ b/g/m.c
@@ -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);
diff --git a/g/n.c b/g/n.c
index 388c11037..5b3c72f61 100644
--- a/g/n.c
+++ b/g/n.c
@@ -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);
diff --git a/g/r.c b/g/r.c
index 8e46afda9..e43565b3c 100644
--- a/g/r.c
+++ b/g/r.c
@@ -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;
diff --git a/j/5/parse.c b/j/5/parse.c
index 44b2c6c61..7881e0547 100644
--- a/j/5/parse.c
+++ b/j/5/parse.c
@@ -936,7 +936,7 @@
       }
     }
   }
-  u3_noun
+ u3_noun
  u3_cwe_stew_fun(
                         u3_noun cor)
   {