removes old kjet implementation file

This commit is contained in:
Joe Bryan 2018-11-13 13:43:15 -05:00
parent fc665dce04
commit 19e588e503

View File

@ -1,67 +0,0 @@
/* f/meme.c
**
*/
#include "f/meme.h"
/* u3_cka_sub(): a + b.
*/
/* u3_cka_gth(): a + b.
*/
/* u3_cka_mul(): a * b.
*/
/* u3_cka_lte(): a * b.
*/
/* u3_ckb_lent(): length of list `a`.
*/
/* u3_ckb_flop(): reverse list `a`.
*/
/* u3_ckb_weld(): concatenate lists `a` before `b`.
*/
/* u3_ckc_lsh(): left shift.
*/
/* u3_ckc_rsh(): right shift.
*/
/* u3_ckdb_get(): map get for key `b` in map `a` with u3_none.
*/
u3_weak
u3_ckdb_get(u3_noun a, u3_noun b)
{
u3_noun c = u3_cqdb_get(a, b);
u3z(a); u3z(b);
if ( u3_no == u3_cr_du(c) ) {
u3z(c);
return u3_none;
} else {
u3_noun pro = u3k(u3t(c));
u3z(c);
return pro;
}
}
/* u3_ckdb_got(): map get for key `b` in map `a` with fail.
*/
/* u3_ckdb_put(): map put for key `b`, value `c` in map `a`.
*/
/* u3_ckdb_gas(): list to map.
*/
/* u3_ckdi_gas(): list to map.
*/
/* u3_ckdb_has(): test for presence.
*/
/* u3_ckdi_has(): test for presence.
*/
/* u3_ckdi_tap(): map/set convert to list. (solves by_tap also.)
*/
/* u3_cke_cue(): expand saved pill.
*/
/* u3_cke_jam(): pack noun as atom.
*/
/* u3_cke_trip(): atom to tape.
*/