urbit/j/3/vor.c
2014-09-05 12:55:16 -07:00

33 lines
577 B
C

/* j/3/vor.c
**
** This file is in the public domain.
*/
#include "all.h"
/* functions
*/
u2_noun
u2_cqc_vor(u2_atom a,
u2_atom b)
{
c3_w c_w = u2_cr_mug(u2_cr_mug(a));
c3_w d_w = u2_cr_mug(u2_cr_mug(b));
if ( c_w == d_w ) {
return u2_cqc_dor(a, b);
}
else return (c_w < d_w) ? u2_yes : u2_no;
}
u2_noun
u2_cwc_vor(u2_noun cor)
{
u2_noun a, b;
if ( (u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0)) ) {
return u2_cm_bail(c3__exit);
} else {
return u2_cqc_vor(a, b);
}
}