artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Simplify toplevel read.

Browse source 
* mes.c (read_file_env): Rename from read_file.
 (load_file_env): New function.
 (main): Use it.
This commit is contained in:
Jan Nieuwenhuizen 2016-10-29 18:43:03 +02:00
parent 97212b5765
commit 3b4e9f36c8
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
mes.c
View file

@ -1101,15 +1101,16 @@ lookup_macro (scm *x, scm *a)
}
scm *
read_file (scm *e, scm *a)
read_file_env (scm *e, scm *a)
{
if (e == &scm_nil) return e;
#if DEBUG
scm *x = cons (e, read_file (read_env (a), a));
display_ (stderr, x);
#else
return cons (e, read_file (read_env (a), a));
#endif
return cons (e, read_file_env (read_env (a), a));
}
scm *
load_file_env (scm *a)
{
return begin (read_file_env (read_env (a), a), a);
}
#include "type.c"
@ -1125,7 +1126,7 @@ main (int argc, char *argv[])
if (argc > 1 && !strcmp (argv[1], "--help")) return puts ("Usage: mes < FILE\n");
if (argc > 1 && !strcmp (argv[1], "--version")) return puts ("Mes 0.1\n");
scm *a = mes_environment ();
display_ (stderr, begin (read_file (read_env (a), a), a));
display_ (stderr, load_file_env (a));
fputs ("", stderr);
return 0;
}