From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 13 Dec 2004 03:25:59 +0000 (+0000)
Subject: Always generate package files for all OS types.
X-Git-Tag: 20090517-FFI~1416
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ddd32014eb820c1c81111afc4768e2d2831a88ea;p=mit-scheme.git

Always generate package files for all OS types.
---

diff --git a/v7/src/cref/toplev.scm b/v7/src/cref/toplev.scm
index bf21f0cda..fb78a5578 100644
--- a/v7/src/cref/toplev.scm
+++ b/v7/src/cref/toplev.scm
@@ -1,9 +1,10 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 1.21 2003/09/05 20:51:44 cph Exp $
+$Id: toplev.scm,v 1.22 2004/12/13 03:25:59 cph Exp $
 
 Copyright 1988,1989,1991,1993,1995,1996 Massachusetts Institute of Technology
 Copyright 1998,2000,2001,2002,2003 Massachusetts Institute of Technology
+Copyright 2004 Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -30,27 +31,26 @@ USA.
 
 (define (generate/common kernel)
   (lambda (filename #!optional os-type)
-    (let ((pathname (merge-pathnames filename))
-	  (os-type
-	   (if (or (default-object? os-type) (not os-type))
-	       microcode-id/operating-system
-	       os-type)))
-      (let ((pmodel (read-package-model pathname os-type)))
-	(let ((changes? (read-file-analyses! pmodel os-type)))
-	  (resolve-references! pmodel)
-	  (kernel pathname pmodel changes? os-type))))))
+    (let ((pathname (merge-pathnames filename)))
+      (for-each (lambda (os-type)
+		  (let ((pmodel (read-package-model pathname os-type)))
+		    (let ((changes? (read-file-analyses! pmodel os-type)))
+		      (resolve-references! pmodel)
+		      (kernel pathname pmodel changes? os-type))))
+		os-types))))
 
 (define (cref/generate-trivial-constructor filename #!optional os-type)
-  (let ((pathname (merge-pathnames filename))
-	(os-type
-	 (if (or (default-object? os-type)
-		 (not os-type))
-	     microcode-id/operating-system
-	     os-type)))
-    (write-external-descriptions pathname
-				 (read-package-model pathname os-type)
-				 #f
-				 os-type)))
+  (let ((pathname (merge-pathnames filename)))
+    (for-each (lambda (os-type)
+		(write-external-descriptions
+		 pathname
+		 (read-package-model pathname os-type)
+		 #f
+		 os-type))
+	      os-types)))
+
+(define os-types
+  '(NT OS/2 UNIX))
 
 (define cref/generate-cref
   (generate/common