- struct decllist *c = decls;
- unsigned int maxlen = 0, len;
- while(c != NULL){
- len = strlen(c->ident);
- maxlen = maxlen < len ? len : maxlen;
- c = c->next;
- }
-
- c = decls;
- while(c != NULL){
- printf("%s ", c->ident);
- len = strlen(c->ident);
- for(unsigned int i = 1; i<maxlen-len; i++)
- putchar(' ');
- printf("= ");
- lambda_print(c->value, NULL);
- c = c->next;
- }
-}
-
-void decls_free()
-{
- struct decllist *t;
- while(decls != NULL){
- free(decls->ident);
- lambda_free(decls->value);
- t = decls->next;
- free(decls);
- decls = t;
- }