Commit 1f046ece authored by Niels Möller's avatar Niels Möller
Browse files

* src/combinators.c: Removed old code.

Rev: src/combinators.c:1.9
parent 646b3f0f
......@@ -36,17 +36,6 @@
COMMAND_SIMPLE(command_I) { return a; }
#if 0
static struct lsh_object *
do_simple_command_I(struct command_simple *ignored UNUSED,
struct lsh_object *arg)
{
return a;
}
struct command_simple command_I =
STATIC_COMMAND_SIMPLE(do_simple_command_I);
#endif
/* ((K x) y) == x */
......@@ -80,16 +69,6 @@ struct command *make_command_K_1(struct lsh_object *x)
COMMAND_SIMPLE(command_K)
{ return &make_command_K_1(a)->super; }
#if 0
static struct lsh_object *
do_simple_command_K(struct command_simple *ignored UNUSED,
struct lsh_object *a)
{
return &make_command_K_1(a)->super;
}
struct command_simple command_K = STATIC_COMMAND_SIMPLE(do_simple_command_K);
#endif
/* ((S f) g)x == (f x)(g x) */
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment