Update for new directory structure.

diff --git a/v7/src/compiler/etc/comfiles.scm b/v7/src/compiler/etc/comfiles.scm
index 7c3c121d9a57bbe613bc7bc2de91944db6f14a15..69521a8a50de23b5ec4e6f755810d337565a8e65 100644 (file)
--- a/v7/src/compiler/etc/comfiles.scm
+++ b/v7/src/compiler/etc/comfiles.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/etc/comfiles.scm,v 1.1 1990/03/28 22:05:00 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/etc/comfiles.scm,v 1.2 1991/08/21 20:04:52 cph Exp $
 
-Copyright (c) 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1989-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -37,20 +37,15 @@ MIT in each case. |#
 (declare (usual-integrations))
 \f
 (define compiler-directories
-  '("back" "base" #| "etc" |# "fggen" "fgopt"
-          "bobcat"
-          "rtlbase" "rtlgen" "rtlopt"))
+  '("back" "base" "fggen" "fgopt" "machine" "rtlbase" "rtlgen" "rtlopt"))
 
 (define runtime-directories
   '("runtime" "sf" "cref"))
 
 (define (->string name)
-  (cond ((string? name)
-        name)
-       ((symbol? name)
-        (symbol->string name))
-       (else
-        (error "->string: Can't coerce" name))))
+  (cond ((string? name) name)
+       ((symbol? name) (symbol->string name))
+       (else (error "->string: Can't coerce" name))))
 
 (define (for-each-file proc directories)
   (for-each (lambda (dname)
@@ -82,7 +77,5 @@ MIT in each case. |#
      directories)))
 
 (define (check-compiler #!optional stage)
-  (check-stage (if (default-object? stage)
-                  '"STAGE2"
-                  stage)
+  (check-stage (if (default-object? stage) '"STAGE2" stage)
               compiler-directories))
\ No newline at end of file

diff --git a/v8/src/compiler/etc/comfiles.scm b/v8/src/compiler/etc/comfiles.scm
index 516665b6550a9ef3e51a5d4ad5c163aab42c7da3..8f0f115ffbcb7fa9ca0d026acf3bb9e775546e25 100644 (file)
--- a/v8/src/compiler/etc/comfiles.scm
+++ b/v8/src/compiler/etc/comfiles.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/etc/comfiles.scm,v 1.1 1990/03/28 22:05:00 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/etc/comfiles.scm,v 1.2 1991/08/21 20:04:52 cph Exp $
 
-Copyright (c) 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1989-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -37,20 +37,15 @@ MIT in each case. |#
 (declare (usual-integrations))
 \f
 (define compiler-directories
-  '("back" "base" #| "etc" |# "fggen" "fgopt"
-          "bobcat"
-          "rtlbase" "rtlgen" "rtlopt"))
+  '("back" "base" "fggen" "fgopt" "machine" "rtlbase" "rtlgen" "rtlopt"))
 
 (define runtime-directories
   '("runtime" "sf" "cref"))
 
 (define (->string name)
-  (cond ((string? name)
-        name)
-       ((symbol? name)
-        (symbol->string name))
-       (else
-        (error "->string: Can't coerce" name))))
+  (cond ((string? name) name)
+       ((symbol? name) (symbol->string name))
+       (else (error "->string: Can't coerce" name))))
 
 (define (for-each-file proc directories)
   (for-each (lambda (dname)
@@ -82,7 +77,5 @@ MIT in each case. |#
      directories)))
 
 (define (check-compiler #!optional stage)
-  (check-stage (if (default-object? stage)
-                  '"STAGE2"
-                  stage)
+  (check-stage (if (default-object? stage) '"STAGE2" stage)
               compiler-directories))
\ No newline at end of file