p
/
ell
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Parsing should not create a new list 

The resulting program is already a sequence.
This commit is contained in:
Přemysl Eric Janouch 2017-05-19 18:32:28 +02:00
parent 53810d61f2
commit e9b426db41
Signed by: p
GPG Key ID: B715679E3A361BE6
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ell.c
View File

@ -630,7 +630,7 @@ parse (const char *s, size_t len, char **e) {
print_tree (result, 0); print_tree (result, 0);
printf ("\n\n"); printf ("\n\n");
#endif #endif
return new_list (result); return result;
} }
// --- Runtime ----------------------------------------------------------------- // --- Runtime -----------------------------------------------------------------
@ -1006,7 +1006,7 @@ main (int argc, char *argv[]) {
fclose (fp); fclose (fp);
char *e = NULL; char *e = NULL;
struct item *tree = parse (buf.s, buf.len, &e); struct item *program = parse (buf.s, buf.len, &e);
free (buf.s); free (buf.s);
if (e) { if (e) {
printf ("%s: %s\n", "parse error", e); printf ("%s: %s\n", "parse error", e);
@ -1021,9 +1021,9 @@ main (int argc, char *argv[]) {
printf ("%s\n", "runtime library initialization failed"); printf ("%s\n", "runtime library initialization failed");
struct item *result = NULL; struct item *result = NULL;
(void) execute (&ctx, tree->head, &result); (void) execute (&ctx, program, &result);
item_free_list (result); item_free_list (result);
item_free_list (tree); item_free_list (program);
const char *failure = NULL; const char *failure = NULL;
if (ctx.memory_failure) if (ctx.memory_failure)