Eliminate unused inerly files.

diff --git a/src/compiler/machines/i386/inerly.scm b/src/compiler/machines/i386/inerly.scm
deleted file mode 100644 (file)
index 64d5ac6..0000000
--- a/src/compiler/machines/i386/inerly.scm
+++ /dev/null
@@ -1,51 +0,0 @@
-#| -*-Scheme-*-
-
-Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
-    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-    2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
-    2017 Massachusetts Institute of Technology
-
-This file is part of MIT/GNU Scheme.
-
-MIT/GNU Scheme is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or (at
-your option) any later version.
-
-MIT/GNU Scheme is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with MIT/GNU Scheme; if not, write to the Free Software
-Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
-USA.
-
-|#
-
-;;; i386 Instruction Set Macros.  Early version
-;;; NOPs for now.
-
-(declare (usual-integrations))
-
-(define-syntax define-instruction
-  (non-hygienic-macro-transformer
-   (lambda (opcode . patterns)
-     `(SET! EARLY-INSTRUCTIONS
-           (CONS
-            (LIST ',opcode
-                  ,@(map (lambda (pattern)
-                           `(early-parse-rule
-                             ',(car pattern)
-                             (lambda (pat vars)
-                               (early-make-rule
-                                pat
-                                vars
-                                (scode-quote
-                                 (instruction->instruction-sequence
-                                  ,(parse-instruction (cadr pattern)
-                                                      (cddr pattern)
-                                                      #t)))))))
-                         patterns))
-                 EARLY-INSTRUCTIONS)))))
\ No newline at end of file

diff --git a/src/compiler/machines/x86-64/inerly.scm b/src/compiler/machines/x86-64/inerly.scm
deleted file mode 100644 (file)
index b9bd850..0000000
--- a/src/compiler/machines/x86-64/inerly.scm
+++ /dev/null
@@ -1,51 +0,0 @@
-#| -*-Scheme-*-
-
-Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
-    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-    2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
-    2017 Massachusetts Institute of Technology
-
-This file is part of MIT/GNU Scheme.
-
-MIT/GNU Scheme is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or (at
-your option) any later version.
-
-MIT/GNU Scheme is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with MIT/GNU Scheme; if not, write to the Free Software
-Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
-USA.
-
-|#
-
-;;; AMD x86-64 Instruction Set Macros.  Early version
-;;; NOPs for now.
-
-(declare (usual-integrations))
-
-(define-syntax define-instruction
-  (non-hygienic-macro-transformer
-   (lambda (opcode . patterns)
-     `(SET! EARLY-INSTRUCTIONS
-           (CONS
-            (LIST ',opcode
-                  ,@(map (lambda (pattern)
-                           `(early-parse-rule
-                             ',(car pattern)
-                             (lambda (pat vars)
-                               (early-make-rule
-                                pat
-                                vars
-                                (scode-quote
-                                 (instruction->instruction-sequence
-                                  ,(parse-instruction (cadr pattern)
-                                                      (cddr pattern)
-                                                      #t)))))))
-                         patterns))
-                 EARLY-INSTRUCTIONS)))))
\ No newline at end of file