From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 1 Nov 1995 00:56:47 +0000 (+0000)
Subject: Save the operating-system-specific loading files under separate names,
X-Git-Tag: 20090517-FFI~5801
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2d62eb779a09b38ac85e7d0332e5c4f8857134c0;p=mit-scheme.git

Save the operating-system-specific loading files under separate names,
so that multiple operating systems may be supported from the same
build-directory.
---

diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index e96cdb740..fef4b4632 100644
--- a/v7/src/edwin/make.scm
+++ b/v7/src/edwin/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 3.88 1995/10/31 23:41:33 cph Exp $
+$Id: make.scm,v 3.89 1995/11/01 00:56:47 cph Exp $
 
 Copyright (c) 1989-94 Massachusetts Institute of Technology
 
@@ -46,12 +46,16 @@ MIT in each case. |#
      (lambda ()
        (declare-shared-library "edwin" (lambda () true))
        (package/system-loader
-	(case microcode-id/operating-system
-	  ((DOS) "edwindos")
-	  ((NT) "edwinw32")
-	  ((OS/2) "edwinos2")
-	  ((UNIX) "edwinunx")
-	  (else "edwin"))
-	`((os-type . ,microcode-id/operating-system))
+	"edwin"
+	`((os-type . ,microcode-id/operating-system)
+	  (make-constructor-name
+	   . ,(lambda (pathname)
+		(pathname-new-name pathname
+				   (case microcode-id/operating-system
+				     ((DOS) "edwindos")
+				     ((NT) "edwinw32")
+				     ((OS/2) "edwinos2")
+				     ((UNIX) "edwinunx")
+				     (else "edwinunk"))))))
 	'QUERY)))))
 (add-system! (make-system "Edwin" 3 86 '()))
\ No newline at end of file