[plt-scheme] Crash issues with mzssl in 299.100

From: Jepri (jepri at babylon.alphacomplex.org)
Date: Tue Jul 26 11:10:59 EDT 2005

Hi,
I was trying to write a small program using mzssl, but the ssl-accept 
call kept crashing DrScheme.  To check, I installed PLT 299.000 
(stable), and the code ran fine.  Reinstalling 299.100(alpha), it 
crashed again.  I'm new to scheme so I'm not so good at finding the root 
of problems, but I have a minimal test case that always causes the 
crash.  Has anyone had luck using mzssl under 299.100, and could send me 
a code snippet? 

server:
(require (lib "mzssl.ss" "openssl"))
(let ((listener (ssl-listen 9000 5 #t "127.0.0.1"))    (path (build-path 
"\\test.pem")))
  (ssl-load-certificate-chain! listener path)
  (ssl-load-private-key! listener path #t #f)
  (let-values (((inp outp) (ssl-accept listener)))
    (display inp)
    ))

client:
(require (lib "mzssl.ss" "openssl"))
(let ((context (ssl-make-client-context ))     (path (build-path 
"/test2.pem")))
(ssl-load-certificate-chain! context path)
(ssl-load-private-key! context path)
(let-values (((in out) (ssl-connect "127.0.0.1" 9000 context))) 
(close-output-port out)(close-input-port in) ))



Posted on the users mailing list.