projects / mit-scheme.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 45a8e4e)
Remove unused EQ-SUBSET? definitions.
authorChris Hanson <org/chris-hanson/cph>
Thu, 20 Dec 2001 02:03:21 +0000 (02:03 +0000)
committerChris Hanson <org/chris-hanson/cph>
Thu, 20 Dec 2001 02:03:21 +0000 (02:03 +0000)
v7/src/compiler/machines/alpha/inerly.scm patch | blob | history
v7/src/compiler/machines/i386/inerly.scm patch | blob | history
v7/src/compiler/machines/mips/inerly.scm patch | blob | history
v7/src/compiler/machines/sparc/inerly.scm patch | blob | history
v7/src/compiler/machines/spectrum/inerly.scm patch | blob | history

diff --git a/v7/src/compiler/machines/alpha/inerly.scm b/v7/src/compiler/machines/alpha/inerly.scm
index 102b3307d131278aae5492fd9ebc25f3a9307f3b..be2472ebab1efacef681dc0445bcfe564aa8752d 100644 (file)
--- a/v7/src/compiler/machines/alpha/inerly.scm
+++ b/v7/src/compiler/machines/alpha/inerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: inerly.scm,v 1.3 2001/12/19 21:39:29 cph Exp $
+$Id: inerly.scm,v 1.4 2001/12/20 02:03:21 cph Exp $
 
 Copyright (c) 1992-1999, 2001 Massachusetts Institute of Technology
 
@@ -24,7 +24,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 ;;; Package: (compiler lap-syntaxer)
 
 (declare (usual-integrations))
-\f
+
 ;;;; Transformers and utilities
 
 ;;; NOPs for now.
@@ -37,11 +37,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
        (cons (cons name transformer)
              early-transformers)))
 
-(define (eq-subset? s1 s2)
-  (or (null? s1)
-      (and (memq (car s1) s2)
-          (eq-subset? (cdr s1) s2))))
-
 ;;; Instruction and addressing mode macros
 
 (syntax-table/define (->environment '(COMPILER))
@@ -63,19 +58,4 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
                                                      (cddr pattern)
                                                      true)))))))
                         patterns))
-                EARLY-INSTRUCTIONS))))
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+                EARLY-INSTRUCTIONS))))
\ No newline at end of file
diff --git a/v7/src/compiler/machines/i386/inerly.scm b/v7/src/compiler/machines/i386/inerly.scm
index 3023d35918c6b0e7a20a1add3115cf4ca00cb5a1..cd49f7b837cdb63fdf4e2015db79176bbf94ff78 100644 (file)
--- a/v7/src/compiler/machines/i386/inerly.scm
+++ b/v7/src/compiler/machines/i386/inerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: inerly.scm,v 1.4 2001/12/19 21:39:30 cph Exp $
+$Id: inerly.scm,v 1.5 2001/12/20 02:03:21 cph Exp $
 
 Copyright (c) 1992, 1999, 2001 Massachusetts Institute of Technology
 
@@ -35,11 +35,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
        (cons (cons name transformer)
              early-transformers)))
 
-(define (eq-subset? s1 s2)
-  (or (null? s1)
-      (and (memq (car s1) s2)
-          (eq-subset? (cdr s1) s2))))
-
 ;;; Instruction and addressing mode macros
 
 (syntax-table/define (->environment '(COMPILER LAP-SYNTAXER))
diff --git a/v7/src/compiler/machines/mips/inerly.scm b/v7/src/compiler/machines/mips/inerly.scm
index 429c5767aac44e21eedf0063fc373b4425e6aa01..37f7ca9d6209ab7c204f89a0931d152febb83794 100644 (file)
--- a/v7/src/compiler/machines/mips/inerly.scm
+++ b/v7/src/compiler/machines/mips/inerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: inerly.scm,v 1.3 2001/12/19 21:39:30 cph Exp $
+$Id: inerly.scm,v 1.4 2001/12/20 02:03:21 cph Exp $
 
 Copyright (c) 1988, 1989, 1990, 1999, 2001 Massachusetts Institute of Technology
 
@@ -24,7 +24,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 ;;; NOPs for now.
 
 (declare (usual-integrations))
-\f
+
 ;;;; Transformers and utilities
 
 (define early-instructions '())
@@ -35,11 +35,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
        (cons (cons name transformer)
              early-transformers)))
 
-(define (eq-subset? s1 s2)
-  (or (null? s1)
-      (and (memq (car s1) s2)
-          (eq-subset? (cdr s1) s2))))
-
 ;;; Instruction and addressing mode macros
 
 (syntax-table/define (->environment '(COMPILER))
@@ -61,19 +56,4 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
                                                      (cddr pattern)
                                                      true)))))))
                         patterns))
-                EARLY-INSTRUCTIONS))))
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+                EARLY-INSTRUCTIONS))))
\ No newline at end of file
diff --git a/v7/src/compiler/machines/sparc/inerly.scm b/v7/src/compiler/machines/sparc/inerly.scm
index 4c7ea5c8e4d360d943332923eb87bc0e3b43d959..3eb3edd8f143623d087b9b3878420d86f35a7c8b 100644 (file)
--- a/v7/src/compiler/machines/sparc/inerly.scm
+++ b/v7/src/compiler/machines/sparc/inerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: inerly.scm,v 1.3 2001/12/19 21:39:30 cph Exp $
+$Id: inerly.scm,v 1.4 2001/12/20 02:03:21 cph Exp $
 
 Copyright (c) 1988, 1989, 1990, 1999, 2001 Massachusetts Institute of Technology
 
@@ -24,7 +24,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 ;;; NOPs for now.
 
 (declare (usual-integrations))
-\f
+
 ;;;; Transformers and utilities
 
 (define early-instructions '())
@@ -35,11 +35,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
        (cons (cons name transformer)
              early-transformers)))
 
-(define (eq-subset? s1 s2)
-  (or (null? s1)
-      (and (memq (car s1) s2)
-          (eq-subset? (cdr s1) s2))))
-
 ;;; Instruction and addressing mode macros
 
 (syntax-table/define (->environment '(COMPILER))
@@ -61,19 +56,4 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
                                                      (cddr pattern)
                                                      true)))))))
                         patterns))
-                EARLY-INSTRUCTIONS))))
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+                EARLY-INSTRUCTIONS))))
\ No newline at end of file
diff --git a/v7/src/compiler/machines/spectrum/inerly.scm b/v7/src/compiler/machines/spectrum/inerly.scm
index 56fa57329ef60c2c770558672b8c5fda651cedc3..30e64ff31f70a5b3293f6d303a8d2ad616b17516 100644 (file)
--- a/v7/src/compiler/machines/spectrum/inerly.scm
+++ b/v7/src/compiler/machines/spectrum/inerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: inerly.scm,v 1.3 2001/12/19 21:39:30 cph Exp $
+$Id: inerly.scm,v 1.4 2001/12/20 02:03:21 cph Exp $
 
 Copyright (c) 1988, 1989, 1990, 1999, 2001 Massachusetts Institute of Technology
 
@@ -24,7 +24,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 ;;; NOPs for now.
 
 (declare (usual-integrations))
-\f
+
 ;;;; Transformers and utilities
 
 (define early-instructions '())
@@ -35,11 +35,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
        (cons (cons name transformer)
              early-transformers)))
 
-(define (eq-subset? s1 s2)
-  (or (null? s1)
-      (and (memq (car s1) s2)
-          (eq-subset? (cdr s1) s2))))
-
 ;;; Instruction and addressing mode macros
 
 (syntax-table/define (->environment '(COMPILER))
@@ -61,19 +56,4 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
                                                      (cddr pattern)
                                                      true)))))))
                         patterns))
-                EARLY-INSTRUCTIONS))))
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+                EARLY-INSTRUCTIONS))))
\ No newline at end of file
MIT/GNU Scheme, Pucked