fix minor bug: #f is NULL, not 0

svn: r4274
This commit is contained in:
Eli Barzilay 2006-09-07 20:54:58 +00:00
parent a0c4d3b454
commit 4aa4611419

View File

@ -356,7 +356,7 @@
(define (ssl-load-verify-root-certificates! ssl-context-or-listener pathname)
(ssl-load-... 'ssl-load-verify-root-certificates!
(lambda (a b) (SSL_CTX_load_verify_locations a b 0))
(lambda (a b) (SSL_CTX_load_verify_locations a b #f))
ssl-context-or-listener pathname))
(define (ssl-load-suggested-certificate-authorities! ssl-listener pathname)