Fix typo in last edit.

diff --git a/v7/src/compiler/etc/disload.scm b/v7/src/compiler/etc/disload.scm
index 343e0886247b16e139b937c5fc8d68adb846325c..47bbc33dbd4c8103b15a8585c1991a80b71bedfc 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.3 1993/07/01 21:47:28 gjr Exp $
+$Id: disload.scm,v 1.4 1993/07/01 21:48:35 gjr Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -79,7 +79,7 @@ MIT in each case. |#
                      dbg-label/external?
                      dbg-label/name
                      dbg-labels/find-offset))
-         (if (file-esits? "mips.scm")
+         (if (file-exists? "mips.scm")
              (load "mips" disenv))
          (load "dassm1" disenv)
          (load "dassm2" disenv)
@@ -92,4 +92,4 @@ MIT in each case. |#
                (load "dinstr3")))
          (for-each export
                    '(compiler:write-lap-file
-                     compiler:disassemble)))))))
\ No newline at end of file
+                     compiler:disassemble)))'))))
\ No newline at end of file

diff --git a/v8/src/compiler/etc/disload.scm b/v8/src/compiler/etc/disload.scm
index 343e0886247b16e139b937c5fc8d68adb846325c..47bbc33dbd4c8103b15a8585c1991a80b71bedfc 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.3 1993/07/01 21:47:28 gjr Exp $
+$Id: disload.scm,v 1.4 1993/07/01 21:48:35 gjr Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -79,7 +79,7 @@ MIT in each case. |#
                      dbg-label/external?
                      dbg-label/name
                      dbg-labels/find-offset))
-         (if (file-esits? "mips.scm")
+         (if (file-exists? "mips.scm")
              (load "mips" disenv))
          (load "dassm1" disenv)
          (load "dassm2" disenv)
@@ -92,4 +92,4 @@ MIT in each case. |#
                (load "dinstr3")))
          (for-each export
                    '(compiler:write-lap-file
-                     compiler:disassemble)))))))
\ No newline at end of file
+                     compiler:disassemble)))'))))
\ No newline at end of file