wire up delete/get/put in cttp

This commit is contained in:
~hatteb-mitlyd 2014-05-18 18:49:51 -07:00
parent bf73cea511
commit 37e351528e
2 changed files with 4 additions and 0 deletions

View File

@ -258,6 +258,7 @@
# define c3__deep c3_s4('d','e','e','p')
# define c3__del c3_s3('d','e','l')
# define c3__delc c3_s4('d','e','l','c')
# define c3__delt c3_s4('d','e','l','t')
# define c3__dept c3_s4('d','e','p','t')
# define c3__dgdp c3_s4('d','g','d','p')
# define c3__dgkt c3_s4('d','g','k','t')

View File

@ -1380,8 +1380,11 @@ _cttp_creq_new(c3_l num_l, u2_noun hes)
switch ( meh ) {
default: c3_assert(0);
case c3__delt: ceq_u->met_e = u2_hmet_delete; break;
case c3__get: ceq_u->met_e = u2_hmet_get; break;
case c3__head: ceq_u->met_e = u2_hmet_head; break;
case c3__post: ceq_u->met_e = u2_hmet_post; break;
case c3__put: ceq_u->met_e = u2_hmet_put; break;
}
ceq_u->hed_u = _cttp_heds_math(0, u2k(mah));