add strictness

[lambda.git] / mem.c

diff --git a/mem.c b/mem.c
index 0792a97..333038b 100644 (file)
--- a/mem.c
+++ b/mem.c
@@ -32,6 +32,7 @@ struct lambda *copy(struct lambda *t)
                break;
        case lambda_abs:
                c->data.abstraction.ident = strdup(t->data.abstraction.ident);
+               c->data.abstraction.strict = t->data.abstraction.strict;
                c->data.abstraction.expr = copy(t->data.abstraction.expr);
                c->data.abstraction.revision = t->data.abstraction.revision;
                break;