Handle shutdown correctly

[cgay]

ssl/sources/openssl-wrapper.dylan

Line 371 in 71e10e4

/* according to documentation, shutdown only half-done,

define method accessor-close
    (accessor :: <unix-ssl-socket-accessor>, #key abort?, wait?)
 => (closed? :: <boolean>)
  let ssl* = accessor.socket-descriptor;
  let s = ssl-shutdown(ssl*);
  /* according to documentation, shutdown only half-done,
     and SSL-shutdown should be called again.
     but, calling ssl-shutdown again sends data; and when
     the other side has quit (eg openssl s_client with ctrl+c)
     this results in bus errors... */
//  if (s == 0)
//    let s = SSL-shutdown(ssl*);
//    if (s ~= 1)
//      SSL-error(ssl*, s);
//    end
//  elseif (s < 0)
  if (s < 0)
    ssl-error(ssl*, s);
  end;
...