示例#1
0
文件: ut_cull.c 项目: Gunga/urbit
  u3_noun
  u3qfu_cull(u3_noun van,
             u3_noun sut,
             u3_noun pol,
             u3_noun axe,
             u3_noun ref)
  {
    c3_m    fun_m = c3__cull;
    u3_noun pro   = u3z_find_4(fun_m, sut, pol, axe, ref);

    if ( u3_none != pro ) {
      return pro;
    }
    else {
      pro = _cqfu_cull(van, sut, pol, axe, ref);

      return u3z_save_4(fun_m, sut, pol, axe, ref, pro);
    }
  }
示例#2
0
  u3_noun
  u3qfu_mint(u3_noun van,
                        u3_noun sut,
                        u3_noun gol,
                        u3_noun gen)
  {
    c3_m    fun_m = c3__mint;
    u3_noun vrf   = u3r_at(u3qfu_van_vrf, van);
    u3_noun pro   = u3z_find_4(fun_m, vrf, sut, gol, gen);

    if ( u3_none != pro ) {
      return pro;
    }
    else {
      pro = _cqfu_mint(van, sut, gol, gen);

      return u3z_save_4(fun_m, vrf, sut, gol, gen, pro);
    }
  }