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

Fixing -V output for features list.

Browse source
This commit is contained in:
Alex Shinn 2013-10-15 14:31:13 +09:00
parent 5c5a279657
commit 5866ec9b59
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
main.c
View file

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