mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Fix (port-conversion-strategy #f).

Browse source 
Reported by Doug Evans <xdje42@gmail.com>.

* libguile/ports.c (scm_port_conversion_strategy): Don't validate
  that 'port' is an open port until after the (port == #f) case
  has been handled.
This commit is contained in:
Mark H Weaver 2014-01-20 17:15:53 -05:00
parent 97461d739b
commit a9eca8f5d1
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ports.c
View file

@ -1298,8 +1298,6 @@ SCM_DEFINE (scm_port_conversion_strategy, "port-conversion-strategy",
{ {
scm_t_string_failed_conversion_handler h; scm_t_string_failed_conversion_handler h;
SCM_VALIDATE_OPPORT (1, port);
if (scm_is_false (port)) if (scm_is_false (port))
h = scm_i_default_port_conversion_handler (); h = scm_i_default_port_conversion_handler ();
else else