urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-03 18:16:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix a ++ap bug.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-11-04 12:20:44 -08:00
parent 9659726fbf
commit 94470875f3
2 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
j/5/mule.c
View File

@ -4,7 +4,6 @@
*/
#include "all.h"
u3_noun
u3_cwe_mule(u3_noun cor)
{
@ -20,6 +19,6 @@
* C/Nock level, is identical to what a typed mule would produce,
* without running the formula twice.
*/
return u3_cn_slam_on(hok, u3k(tap));;
return u3_cn_slam_on(hok, u3k(tap));
}
}

28
j/6/ap.c
View File

@ -116,19 +116,23 @@
}
_open_do_p(tssg) // =~
{
u3_noun tp_gen = u3t(p_gen);
u3_noun ip_gen = u3h(p_gen);
if ( u3_ne(u3du(p_gen)) ) {
return u3nc(0, 1);
} else {
u3_noun tp_gen = u3t(p_gen);
u3_noun ip_gen = u3h(p_gen);
if ( (u3_nul == p_gen) ) {
return u3nc(u3_blip, 1);
}
else if ( (u3_nul == tp_gen) ) {
return u3k(ip_gen);
}
else {
return u3nt(c3__tsgr,
u3k(ip_gen),
_open_in_tssg(ter, tp_gen));
if ( (u3_nul == p_gen) ) {
return u3nc(u3_blip, 1);
}
else if ( (u3_nul == tp_gen) ) {
return u3k(ip_gen);
}
else {
return u3nt(c3__tsgr,
u3k(ip_gen),
_open_in_tssg(ter, tp_gen));
}
}
}
/***