Change 4-character filename suffixes to 3-character.
authorChris Hanson <org/chris-hanson/cph>
Sat, 7 Jan 1995 00:29:42 +0000 (00:29 +0000)
committerChris Hanson <org/chris-hanson/cph>
Sat, 7 Jan 1995 00:29:42 +0000 (00:29 +0000)
v8/src/compiler/machines/spectrum/compiler.sf

index 33014e4aef6356eb6d13846d00c7410268804bd1..c907ba6a2ff9fbb73c21020dfbc0f384e1116c6d 100644 (file)
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: compiler.sf,v 1.2 1994/12/06 17:44:22 adams Exp $
+$Id: compiler.sf,v 1.3 1995/01/07 00:29:42 cph Exp $
 
-Copyright (c) 1988-1994 Massachusetts Institute of Technology
+Copyright (c) 1988-95 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -41,13 +41,13 @@ MIT in each case. |#
 (if (not (name->package '(COMPILER)))
     (begin
       ;; If there is no existing package constructor, generate one.
-      (if (not (file-exists? "compiler.bcon"))
+      (if (not (file-exists? "compiler.bco"))
          (begin
            ((access cref/generate-trivial-constructor
                     (->environment '(CROSS-REFERENCE)))
             "compiler")
-           (sf "compiler.con" "compiler.bcon")))
-      (load "compiler.bcon")))
+           (sf "compiler.con")))
+      (load "compiler.bco")))
 
 ;; Guarantee that the necessary syntactic transforms and optimizers
 ;; are loaded.
@@ -106,5 +106,5 @@ MIT in each case. |#
 
 ;; Rebuild the package constructors and cref.
 (cref/generate-constructors "compiler")
-(sf "compiler.con" "compiler.bcon")
-(sf "compiler.ldr" "compiler.bldr")
\ No newline at end of file
+(sf "compiler.con")
+(sf "compiler.ldr")
\ No newline at end of file