From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Oct 2018 03:23:59 +0000 (-0700)
Subject: Don't use *-w32.* files for LIARC.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~199
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b7a76fb1bde30427de74dce6597abf3d9261982b;p=mit-scheme.git

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

diff --git a/src/etc/utilities.scm b/src/etc/utilities.scm
index 3aae78e38..ccc717fc0 100644
--- 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 b4f31f896..de0621288 100644
--- 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)