Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding -Dfeature command-line option (issue #356)

Browse source
This commit is contained in:
Alex Shinn 2016-06-07 23:03:38 +09:00
parent 2aa87f4522
commit 16eae5341e
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
main.c
View file

@ -304,6 +304,18 @@ sexp run_main (int argc, char **argv) {
/* parse options */
for (i=1; i < argc && argv[i][0] == '-'; i++) {
switch ((c=argv[i][1])) {
case 'D':
mods_loaded = 1;
load_init(1);
tmp = sexp_env_ref(ctx, env, sym=sexp_intern(ctx, "*features*", -1), SEXP_NULL);
sexp_debug(ctx, "f: ", tmp);
if (sexp_pairp(tmp)) {
sym = sexp_intern(ctx, ((argv[i][2] == '\0') ? argv[++i] : argv[i]+2), -1);
for (; sexp_pairp(sexp_cdr(tmp)); tmp=sexp_cdr(tmp))
;
sexp_cdr(tmp) = sexp_cons(ctx, sym, SEXP_NULL);
}
break;
case 'e':
case 'p':
mods_loaded = 1;