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

getting current-in/out/err-ports without using eval in repl loop

Browse source
This commit is contained in:
Alex Shinn 2010-05-15 13:08:33 +09:00
parent 14c4d0b57d
commit 102b946b9d
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
main.c
View file

@ -27,9 +27,9 @@ static void repl (sexp ctx) {
sexp_env_define(ctx, sexp_context_env(ctx),
sexp_global(ctx, SEXP_G_INTERACTION_ENV_SYMBOL), env);
sexp_context_tracep(ctx) = 1;
in = sexp_eval_string(ctx, "(current-input-port)", -1, env);
out = sexp_eval_string(ctx, "(current-output-port)", -1, env);
err = sexp_eval_string(ctx, "(current-error-port)", -1, env);
in = sexp_env_ref(env, sexp_global(ctx, SEXP_G_CUR_IN_SYMBOL), SEXP_FALSE);
out = sexp_env_ref(env, sexp_global(ctx, SEXP_G_CUR_OUT_SYMBOL), SEXP_FALSE);
err = sexp_env_ref(env, sexp_global(ctx, SEXP_G_CUR_ERR_SYMBOL), SEXP_FALSE);
sexp_port_sourcep(in) = 1;
while (1) {
sexp_write_string(ctx, "> ", out);