Fixing -V output for features list.

This commit is contained in:
Alex Shinn 2013-10-15 14:31:13 +09:00
parent 5c5a279657
commit 5866ec9b59

2
main.c
View file

@ -493,7 +493,7 @@ void run_main (int argc, char **argv) {
break;
#endif
case 'V':
load_init(0);
load_init(1);
if (! sexp_oportp(out))
out = sexp_eval_string(ctx, "(current-output-port)", -1, env);
sexp_write_string(ctx, sexp_version_string, out);