From db32409452ea90afc95038ffb997eb510ca932fb Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 3 Oct 2013 11:36:39 +0900 Subject: [PATCH] If unbound, using current-output-port in place of current-error-port for -x languages. Allows -xscheme.r5rs. --- main.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/main.c b/main.c index 64ad6e7f..80a9402d 100644 --- a/main.c +++ b/main.c @@ -212,10 +212,11 @@ static void repl (sexp ctx, sexp env) { in = sexp_param_ref(ctx, env, sexp_global(ctx, SEXP_G_CUR_IN_SYMBOL)); out = sexp_param_ref(ctx, env, sexp_global(ctx, SEXP_G_CUR_OUT_SYMBOL)); err = sexp_param_ref(ctx, env, sexp_global(ctx, SEXP_G_CUR_ERR_SYMBOL)); - if (in == NULL || out == NULL || err == NULL) { + if (in == NULL || out == NULL) { fprintf(stderr, "Standard I/O ports not found, aborting. Maybe a bad -x language?\n"); exit_failure(); } + if (err == NULL) err = out; sexp_port_sourcep(in) = 1; while (1) { sexp_write_string(ctx, "> ", out);