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

Fix a bug in deep axis handling.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-02-17 11:12:44 -08:00
parent dca16bc7bb
commit d175c24a57
2 changed files with 11 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
jets/f/ut_mint.c
View File

@ -96,20 +96,15 @@
static u3_noun
_mint_coke(u3_noun nug)
{
u3_atom axe;
if ( 0 == u3h(nug) ) {
axe = u3t(nug);
} else if ( 10 == u3h(nug) ) {
u3_noun xin = u3k(u3t(u3t(nug)));
axe = _mint_coke(xin);
return u3k(u3t(nug));
}
else if ( 10 == u3h(nug) ) {
return _mint_coke(u3t(u3t(nug)));
}
else {
return u3m_error("mint-coke");
}
u3z(nug);
return axe;
}
static u3_noun
@ -411,6 +406,7 @@
u3qfu_fish(van, wam, axe));
u3z(axe);
u3z(vol);
u3z(wam);
u3z(nob);
u3z(dok);

17
jets/f/ut_mull.c
View File

@ -44,20 +44,15 @@
static u3_noun
_mull_coke(u3_noun nug)
{
u3_atom axe;
if ( 0 == u3h(nug) ) {
axe = u3t(nug);
} else if ( 10 == u3h(nug) ) {
u3_noun xin = u3k(u3t(u3t(nug)));
axe = _mull_coke(xin);
return u3k(u3t(nug));
}
else if ( 10 == u3h(nug) ) {
return _mull_coke(u3t(u3t(nug)));
}
else {
return u3m_error("mint-coke");
return u3m_error("mull-coke");
}
u3z(nug);
return axe;
}
static u3_noun
@ -66,7 +61,7 @@
u3_noun gen)
{
u3_noun fug = u3qfu_mint(van, sut, c3__noun, gen);
u3_noun axe = _mull_coke(u3k(u3t(fug)));
u3_noun axe = _mull_coke(u3t(fug));
u3z(fug);
return axe;