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

A stash.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-10-03 12:51:27 -07:00
parent 2e92e0bb86
commit 1fba7eeca3
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
g/m.c
View File

@ -513,6 +513,8 @@ u3_cm_soft_run(u3_noun fly,
u3_noun why, pro;
c3_w gof_w;
printf("run: fly: %x\r\n", u3_cr_mug(fly));
u3_cm_wash(aga);
u3_cm_wash(agb);
@ -615,6 +617,7 @@ u3_cm_soft_esc(u3_noun sam)
fly = u3h(u3R->ski.flu);
u3_cm_p("esc: sam", sam);
printf("esc: fly: %x\r\n", u3_cr_mug(fly));
// u3_cm_p("esc: fly", fly);
}
@ -639,6 +642,7 @@ u3_cm_soft_esc(u3_noun sam)
pro = u3_cn_slam_on(fly, sam);
u3_cm_p("esc: pro", pro);
abort();
/* Fall back to the old road, leaving temporary memory intact.
*/

14
g/t.c
View File

@ -34,12 +34,24 @@ u3_ct_drop(void)
}
}
extern void
u3_lo_tank(c3_l tab_l, u3_noun tac);
/* u3_ct_slog(): print directly.
*/
void
u3_ct_slog(u3_noun hod)
{
u3_cm_p("&", hod);
if ( u3_yes == u3du(hod) ) {
u3_noun pri = u3h(hod);
switch ( pri ) {
case 3: printf(">>> "); break;
case 2: printf(">> "); break;
case 1: printf("> "); break;
}
u3_lo_tank(0, u3k(u3t(hod)));
}
u3z(hod);
}