From 9bf2deaa490c8cfacc4134af0138a505109b1209 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 4 May 2007 05:54:05 +0000
Subject: [PATCH] use system-type to identify 3m

svn: r6136
---
 collects/openssl/mzssl.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/openssl/mzssl.ss b/collects/openssl/mzssl.ss
index 9078c693c2..ee992a3bd6 100644
--- 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)