1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00

* Make sure that scm_display_error validates its port argument.

This commit is contained in:
Dirk Herrmann 2001-01-24 15:58:46 +00:00
parent f1e06a96a2
commit e40a4095d6
4 changed files with 34 additions and 5 deletions

View file

@ -434,7 +434,7 @@ handler_message (void *handler_data, SCM tag, SCM args)
scm_display_backtrace (stack, p, SCM_UNDEFINED, SCM_UNDEFINED);
scm_newline (p);
}
scm_display_error (stack, p, subr, message, parts, rest);
scm_i_display_error (stack, p, subr, message, parts, rest);
}
else
{