mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-11 08:55:23 +03:00
44 lines
617 B
C
44 lines
617 B
C
/* n/t.c
|
|
**
|
|
** This file is in the public domain.
|
|
*/
|
|
#include "all.h"
|
|
|
|
/* u2_ct_push(): push on trace stack.
|
|
*/
|
|
void
|
|
u2_ct_push(u2_noun mon)
|
|
{
|
|
u2R->bug.tax = u2nc(mon, u2R->bug.tax);
|
|
}
|
|
|
|
/* u2_ct_mean(): push `[%mean roc]` on trace stack.
|
|
*/
|
|
void
|
|
u2_ct_mean(u2_noun roc)
|
|
{
|
|
u2R->bug.tax = u2nc(u2nc(c3__mean, roc), u2R->bug.tax);
|
|
}
|
|
|
|
/* u2_ct_drop(): drop from meaning stack.
|
|
*/
|
|
void
|
|
u2_ct_drop(void)
|
|
{
|
|
c3_assert(u2_so(u2du(u2R->bug.tax)));
|
|
{
|
|
u2_noun tax = u2R->bug.tax;
|
|
|
|
u2R->bug.tax = u2k(u2t(tax));
|
|
u2z(tax);
|
|
}
|
|
}
|
|
|
|
/* u2_ct_slog(): print directly.
|
|
*/
|
|
void
|
|
u2_ct_slog(u2_noun hod)
|
|
{
|
|
u2z(hod);
|
|
}
|