Change evaluation strategy to normal order

[lambda.git] / lambda.y

diff --git a/lambda.y b/lambda.y
index 830fa99..007fb2d 100644 (file)
--- a/lambda.y
+++ b/lambda.y
@@ -51,7 +51,6 @@ struct lambda *make_application(struct lambda *t1, struct lambda *t2)
 
 void decls_prepend(char *ident, struct lambda *value)
 {
-       printf("add: %s\n", ident);
        struct decllist *head = malloc(sizeof (struct decllist));
        head->next = decls;
        head->ident = ident;
@@ -61,14 +60,12 @@ void decls_prepend(char *ident, struct lambda *value)
 
 struct lambda *decls_lookup(char *ident)
 {
-       printf("lookup: %s\n", ident);
        struct decllist *c = decls;
        while(c != NULL){
                if(strcmp(c->ident, ident) == 0)
                        return copy(c->value);
                c = c->next;
        }
-       printf("Notfound\n");
        return make_ident(ident);
 }