Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-03 11:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Fixing warnings inside modules with no current-error-port defined.

Browse source
This commit is contained in:
Alex Shinn 2013-04-01 21:05:51 +09:00
parent b840602d6c
commit 64931197a6
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
eval.c
View file

@ -34,13 +34,20 @@ sexp sexp_compile_error (sexp ctx, const char *message, sexp o) {
}
void sexp_warn (sexp ctx, char *msg, sexp x) {
sexp out = sexp_current_error_port(ctx);
sexp_gc_var1(out);
sexp_gc_preserve1(ctx, out);
out = sexp_current_error_port(ctx);
if (sexp_not(out)) { /* generate a throw-away port */
out = sexp_make_output_port(ctx, stderr, SEXP_FALSE);
sexp_port_no_closep(out) = 1;
}
if (sexp_oportp(out)) {
sexp_write_string(ctx, "WARNING: ", out);
sexp_write_string(ctx, msg, out);
sexp_write(ctx, x, out);
sexp_write_char(ctx, '\n', out);
}
sexp_gc_release1(ctx);
}
sexp sexp_warn_undefs_op (sexp ctx, sexp self, sexp_sint_t n, sexp from, sexp to, sexp res) {