From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 20 Dec 2009 10:29:01 +0000 (-0800)
Subject: Fix: W32 file-system flags can be a bignum.
X-Git-Tag: 20100708-Gtk~195^2~6
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2aa895831cd2c52e92987928e352d5b5f79aff18;p=mit-scheme.git

Fix: W32 file-system flags can be a bignum.
---

diff --git a/src/runtime/ntprm.scm b/src/runtime/ntprm.scm
index 36ede8068..a6e08f06a 100644
--- a/src/runtime/ntprm.scm
+++ b/src/runtime/ntprm.scm
@@ -346,9 +346,8 @@ USA.
 	    ;; Samba normally advertises itself as NTFS, except that
 	    ;; it doesn't claim to store Unicode on the disk.
 	    (if (and (string-ci=? name "NTFS")
-		     (fix:= 0
-			    (fix:and (nt-volume-info/file-system-flags info)
-				     nt-fs-flag/unicode-on-disk)))
+		     (even? (quotient (nt-volume-info/file-system-flags info)
+				      nt-fs-flag/unicode-on-disk)))
 		"Samba"
 		name)))
 	""))