use system-type to identify 3m

svn: r6136
2007-05-04 05:54:05 +00:00 · 2007-05-04 05:54:05 +00:00 · 9bf2deaa49
commit 9bf2deaa49
parent 3167c6621e
1 changed files with 1 additions and 1 deletions
--- a/collects/openssl/mzssl.ss
+++ b/collects/openssl/mzssl.ss
@ -62,7 +62,7 @@

  (define ssl-load-fail-reason #f)

-  (define 3m? (regexp-match #rx#"3m" (path->bytes (system-library-subpath))))
+  (define 3m? (eq? '3m (system-type 'gc)))

  (define libcrypto
    (with-handlers ([exn:fail? (lambda (x)