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

Merge remote-tracking branch 'curtis/unfoul'

Browse Source 
Compiler jet fixes
This commit is contained in:
Raymond Pasco 2016-02-17 14:53:33 -05:00
commit 95c85cbc81
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 static u3_noun
_mint_coke(u3_noun nug) _mint_coke(u3_noun nug)
{ {
u3_atom axe;
if ( 0 == u3h(nug) ) { if ( 0 == u3h(nug) ) {
axe = u3t(nug); return u3k(u3t(nug));
} else if ( 10 == u3h(nug) ) { }
u3_noun xin = u3k(u3t(u3t(nug))); else if ( 10 == u3h(nug) ) {
return _mint_coke(u3t(u3t(nug)));
axe = _mint_coke(xin);
} }
else { else {
return u3m_error("mint-coke"); return u3m_error("mint-coke");
} }
u3z(nug);
return axe;
} }
static u3_noun static u3_noun
@ -411,6 +406,7 @@
u3qfu_fish(van, wam, axe)); u3qfu_fish(van, wam, axe));
u3z(axe); u3z(axe);
u3z(vol);
u3z(wam); u3z(wam);
u3z(nob); u3z(nob);
u3z(dok); u3z(dok);

17
jets/f/ut_mull.c
View File

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