From 2d62eb779a09b38ac85e7d0332e5c4f8857134c0 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 1 Nov 1995 00:56:47 +0000 Subject: [PATCH] Save the operating-system-specific loading files under separate names, so that multiple operating systems may be supported from the same build-directory. --- v7/src/edwin/make.scm | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) 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 -- 2.25.1