rem: v = scheme_make_prim_w_arity(ssl_mk_ctx,"ssl-make-context",0,1); scheme_add_global("ssl-make-context", v, env);
context: Scheme_Object *scheme_reload(Scheme_Env *env){  Scheme_Object *v;  v = scheme_intern_symbol("mzssl");  env = scheme_primitive_module(v, env);    /* add ssl-connect */  v = scheme_make_prim_w_arity(ssl_connect, "ssl-connect", 2, 3);  scheme_add_global("ssl-connect", v, env);  v = scheme_make_prim_w_arity(ssl_connect_break,"ssl-connect/enable-break",2,3);  scheme_add_global("ssl-connect/enable-break", v, env);  v = scheme_make_prim_w_arity(ssl_listen,"ssl-listen",1,5);  scheme_add_global("ssl-listen", v, env);  v = scheme_make_prim_w_arity(ssl_close,"ssl-close",1,1);  scheme_add_global("ssl-close", v, env);  v = scheme_make_prim_w_arity(ssl_listener_p,"ssl-listener?",1,1);  scheme_add_global("ssl-listener?", v, env);  v = scheme_make_prim_w_arity(ssl_load_cert_chain,"ssl-load-certificate-chain!",2,2);  scheme_add_global("ssl-load-certificate-chain!", v, env);  v = scheme_make_prim_w_arity(ssl_load_cert_root,"ssl-load-verify-root-certificates!",2,2);  scheme_add_global("ssl-load-verify-root-certificates!", v, env);  v = scheme_make_prim_w_arity(ssl_load_cert_chain,"ssl-load-suggested-certificate-authorities!",2,2);  scheme_add_global("ssl-load-suggested-certificate-authorities!", v, env);  v = scheme_make_prim_w_arity(ssl_load_priv_key,"ssl-load-private-key!",2,4);  scheme_add_global("ssl-load-private-key!", v, env);  v = scheme_make_prim_w_arity(ssl_set_verify,"ssl-set-verify!",2,2);  scheme_add_global("ssl-set-verify!", v, env);  v = scheme_make_prim_w_arity(ssl_mk_ctx,"ssl-make-client-context",0,0);  scheme_add_global("ssl-make-client-context", v, env);  v = scheme_make_prim_w_arity(ssl_ctx_p,"ssl-client-context?",1,1);  scheme_add_global("ssl-client-context?", v, env);  v = scheme_make_prim_w_arity(ssl_accept,"ssl-accept",1,1);  scheme_add_global("ssl-accept", v, env);  v = scheme_make_prim_w_arity(ssl_accept_break,"ssl-accept/enable-break",1,1);  scheme_add_global("ssl-accept/enable-break", v, env);  v = scheme_make_prim_w_arity(ssl_mk_ctx,"ssl-make-context",0,1);  scheme_add_global("ssl-make-context", v, env);  v = scheme_make_prim_w_everything(ssl_addresses, 0, "ssl-addresses", 1, 1, 0, 2, 2);  scheme_add_global("ssl-addresses", v, env);  scheme_add_global("ssl-available?", scheme_true, env);  scheme_finish_primitive_module(env);  return scheme_void;}