From 2aa895831cd2c52e92987928e352d5b5f79aff18 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 20 Dec 2009 02:29:01 -0800 Subject: [PATCH] Fix: W32 file-system flags can be a bignum. --- src/runtime/ntprm.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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))) "")) -- 2.25.1