Kludge to make defaulting of directory work under DOS (and NT?).

diff --git a/v7/src/compiler/etc/comfiles.scm b/v7/src/compiler/etc/comfiles.scm
index 28599130a111505a2abc0defa03b70719632f6dd..3fc871cb60d0d2dea892694cbcd4f4e7ff22bf6b 100644 (file)
--- a/v7/src/compiler/etc/comfiles.scm
+++ b/v7/src/compiler/etc/comfiles.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: comfiles.scm,v 1.3 1993/06/30 21:39:32 gjr Exp $
+$Id: comfiles.scm,v 1.4 1993/07/16 19:59:07 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -37,7 +37,10 @@ MIT in each case. |#
 (declare (usual-integrations))
 \f
 (define compiler-directories
-  '("back" "base" "fggen" "fgopt" "machine" "rtlbase" "rtlgen" "rtlopt"))
+  '("back" "base" "fggen" "fgopt" "rtlbase" "rtlgen" "rtlopt"
+          (if (equal? microcode-id/operating-system-name "unix")
+              "machine"
+              "machines/i386")))          
 
 (define runtime-directories
   '("runtime" "sf" "cref"))

diff --git a/v7/src/compiler/etc/disload.scm b/v7/src/compiler/etc/disload.scm
index a439c047813c5026b4ecf82ce0e405e4f5a23c52..12cf8c739433ca2d1f7e96a3121a99ffd9646416 100644 (file)
--- a/v7/src/compiler/etc/disload.scm
+++ b/v7/src/compiler/etc/disload.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: disload.scm,v 1.6 1993/07/01 22:52:20 gjr Exp $
+$Id: disload.scm,v 1.7 1993/07/16 19:58:09 gjr Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -38,9 +38,12 @@ MIT in each case. |#
 \f
 (define (load-disassembler #!optional directory addressing-granularity)
   (with-working-directory-pathname
-    (if (default-object? directory)
-       "/usr/local/lib/mit-scheme/SRC/compiler/machine"
-       directory)
+    (cond ((not (default-object? directory))
+          directory)
+         ((equal? microcode-id/operating-system-name "unix")
+          "/usr/local/lib/mit-scheme/SRC/compiler/machine")
+         (else
+          "/scheme/compiler/machines/i386"))
     (lambda ()
       (let* ((parent (or (name->package '(compiler))
                         (find-package '())))

diff --git a/v8/src/compiler/etc/comfiles.scm b/v8/src/compiler/etc/comfiles.scm
index 28599130a111505a2abc0defa03b70719632f6dd..3fc871cb60d0d2dea892694cbcd4f4e7ff22bf6b 100644 (file)
--- a/v8/src/compiler/etc/comfiles.scm
+++ b/v8/src/compiler/etc/comfiles.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: comfiles.scm,v 1.3 1993/06/30 21:39:32 gjr Exp $
+$Id: comfiles.scm,v 1.4 1993/07/16 19:59:07 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -37,7 +37,10 @@ MIT in each case. |#
 (declare (usual-integrations))
 \f
 (define compiler-directories
-  '("back" "base" "fggen" "fgopt" "machine" "rtlbase" "rtlgen" "rtlopt"))
+  '("back" "base" "fggen" "fgopt" "rtlbase" "rtlgen" "rtlopt"
+          (if (equal? microcode-id/operating-system-name "unix")
+              "machine"
+              "machines/i386")))          
 
 (define runtime-directories
   '("runtime" "sf" "cref"))

diff --git a/v8/src/compiler/etc/disload.scm b/v8/src/compiler/etc/disload.scm
index a439c047813c5026b4ecf82ce0e405e4f5a23c52..12cf8c739433ca2d1f7e96a3121a99ffd9646416 100644 (file)
--- a/v8/src/compiler/etc/disload.scm
+++ b/v8/src/compiler/etc/disload.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: disload.scm,v 1.6 1993/07/01 22:52:20 gjr Exp $
+$Id: disload.scm,v 1.7 1993/07/16 19:58:09 gjr Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -38,9 +38,12 @@ MIT in each case. |#
 \f
 (define (load-disassembler #!optional directory addressing-granularity)
   (with-working-directory-pathname
-    (if (default-object? directory)
-       "/usr/local/lib/mit-scheme/SRC/compiler/machine"
-       directory)
+    (cond ((not (default-object? directory))
+          directory)
+         ((equal? microcode-id/operating-system-name "unix")
+          "/usr/local/lib/mit-scheme/SRC/compiler/machine")
+         (else
+          "/scheme/compiler/machines/i386"))
     (lambda ()
       (let* ((parent (or (name->package '(compiler))
                         (find-package '())))