urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-11 11:02:25 +03:00
Code Issues Packages Projects Releases Wiki Activity

Basic %bull support.

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-12-26 15:58:55 -05:00
parent 3855896562
commit 5d51ceff35
5 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gen191/6/ut_mint.c
View File

@ -664,7 +664,7 @@
_mint_used(wir_r);
{
u2_noun sep = j2_mcy(Pt6, ut, seep)(wir_r, van, sut, c3__both, q_gen);
u2_noun bid = u2_bt(wir_r, u2k(p_gen), u2k(q_gen), sep);
u2_noun bid = u2_bc(wir_r, u2k(p_gen), sep);
u2_noun boc = j2_mby(Pt6, bull)(wir_r, bid, sut);
u2_noun ret = _mint_in(wir_r, van, boc, gol, r_gen);

4
gen191/6/ut_mull.c
View File

@ -593,8 +593,8 @@
{
u2_noun sep = j2_mcy(Pt6, ut, seep)(wir_r, van, sut, c3__both, q_gen);
u2_noun pox = j2_mcy(Pt6, ut, seep)(wir_r, van, dox, c3__both, q_gen);
u2_noun bid = u2_bt(wir_r, u2k(p_gen), u2k(q_gen), sep);
u2_noun yub = u2_bt(wir_r, u2k(p_gen), u2k(q_gen), pox);
u2_noun bid = u2_bc(wir_r, u2k(p_gen), sep);
u2_noun yub = u2_bc(wir_r, u2k(p_gen), pox);
u2_noun boc = j2_mby(Pt6, bull)(wir_r, bid, sut);
u2_noun nuf = j2_mby(Pt6, bull)(wir_r, yub, dox);
u2_noun ret = _mull_in(wir_r, van, boc, gol, nuf, r_gen);

2
gen191/6/ut_park.c
View File

@ -28,7 +28,7 @@
u2_bi_cell(wir_r, q_sut, &pq_sut, 0);
if ( c3__both == way ) {
if ( u2_yes == c3__gold ) {
if ( c3__gold == pq_sut ) {
return u2_yes;
} else return u2_no;
}

2
gen191/6/ut_play.c
View File

@ -344,7 +344,7 @@
_play_used(wir_r);
{
u2_noun sep = j2_mcy(Pt6, ut, seep)(wir_r, van, sut, c3__both, q_gen);
u2_noun bid = u2_bt(wir_r, u2k(p_gen), u2k(q_gen), sep);
u2_noun bid = u2_bc(wir_r, u2k(p_gen), sep);
u2_noun boc = j2_mby(Pt6, bull)(wir_r, bid, sut);
u2_noun ret = _play_x(wir_r, van, boc, r_gen);

3
gen191/6/ut_seek.c
View File

@ -322,13 +322,14 @@
u2_noun hyp) // retain
{
u2_noun zar = j2_mcy(Pt6, ut, seek)(wir_r, van, sut, way, hyp);
u2_noun p_zar = u2h(zar);
u2_noun q_zar = u2t(zar);
if ( u2_yes != u2h(q_zar) ) {
return u2_cm_bail(c3__exit);
}
else {
u2_noun ret = u2_rx(wir_r, u2t(q_zar));
u2_noun ret = u2_bc(wir_r, u2_rx(wir_r, p_zar), u2_rx(wir_r, u2t(q_zar)));
u2_rz(wir_r, zar);
return ret;