From a982e14bb3fa7a1012b626e5e7c9963cf24d8890 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 11 Feb 2008 12:55:30 +0000
Subject: [PATCH] fix scribble output when a table appears as the first thing
 in an itemization item; a little more mzlib scribblings

svn: r8617

original commit: 9bfa156f91656007ac2af9b1af48fe3b01bd094e
---
 collects/mzlib/string.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/string.ss b/collects/mzlib/string.ss
index 1107690..f1b2156 100644
--- a/collects/mzlib/string.ss
+++ b/collects/mzlib/string.ss
@@ -83,7 +83,7 @@
 
   (define glob->regexp
     (let-values
-        ([(def-case-sens) (not (memq (system-type) '(windows macos macosx)))]
+        ([(def-case-sens) (eq? (system-path-convention-type)'unix)]
          [(item:s item:b simple-item:s simple-item:b)
           (let ([rx (lambda (s)
                       (string-append