Don't use *-w32.* files for LIARC.

diff --git a/src/etc/utilities.scm b/src/etc/utilities.scm
index 3aae78e38c3f8ff34441706fa16001d28e5906a1..ccc717fc08fa94e40cfac889d72f51d2e582ab84 100644 (file)
--- a/src/etc/utilities.scm
+++ b/src/etc/utilities.scm
@@ -112,7 +112,7 @@ USA.
      (map (lambda (os-suffix)
            (string-append pkg-name "-" os-suffix))
          ;; XXX Need them all to process other package descriptions.
-         '("unx" "w32"))
+         '("unx"))
      (sort (let ((names
                  (map ->namestring
                       (cref/package-files

diff --git a/src/microcode/makegen/makegen.scm b/src/microcode/makegen/makegen.scm
index b4f31f8969e26d033503a8499fe6872e5dc5b74a..de06212886fc550ba5ddd4573a3673b5705de978 100644 (file)
--- a/src/microcode/makegen/makegen.scm
+++ b/src/microcode/makegen/makegen.scm
@@ -130,7 +130,7 @@ USA.
                             '()))))
                   specs)))
 
-(define os-pkd-suffixes '("unx" "w32"))
+(define os-pkd-suffixes '("unx"))
 
 (define (package-description-files descriptor)
   (receive (filename suffixes)