Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-12 23:47:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

-t is a noop flag if not compiled with SEXP_USE_MODULES

Browse source
This commit is contained in:
Alex Shinn 2014-05-07 15:19:49 -04:00
parent ffcf606251
commit 6583827f4e
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
main.c
View file

@ -533,6 +533,7 @@ void run_main (int argc, char **argv) {
mods_loaded = 1; mods_loaded = 1;
load_init(0); load_init(0);
arg = ((argv[i][2] == '\0') ? argv[++i] : argv[i]+2); arg = ((argv[i][2] == '\0') ? argv[++i] : argv[i]+2);
#if SEXP_USE_MODULES
suffix = strrchr(arg, '.'); suffix = strrchr(arg, '.');
sym = sexp_intern(ctx, suffix + 1, -1); sym = sexp_intern(ctx, suffix + 1, -1);
*(char*)suffix = '\0'; *(char*)suffix = '\0';
@ -543,6 +544,7 @@ void run_main (int argc, char **argv) {
tmp = check_exception(ctx, sexp_eval_string(ctx, "(environment '(chibi trace))", -1, sexp_meta_env(ctx))); tmp = check_exception(ctx, sexp_eval_string(ctx, "(environment '(chibi trace))", -1, sexp_meta_env(ctx)));
tmp = sexp_env_ref(ctx, tmp, sexp_intern(ctx, "trace-cell", -1), 0); tmp = sexp_env_ref(ctx, tmp, sexp_intern(ctx, "trace-cell", -1), 0);
check_exception(ctx, sexp_apply(ctx, tmp, sym)); check_exception(ctx, sexp_apply(ctx, tmp, sym));
#endif
break; break;
default: default:
fprintf(stderr, "unknown option: %s\n", argv[i]); fprintf(stderr, "unknown option: %s\n", argv[i]);