From: Chris Hanson Date: Thu, 20 Dec 2001 02:03:21 +0000 (+0000) Subject: Remove unused EQ-SUBSET? definitions. X-Git-Tag: 20090517-FFI~2350 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ae6c31c6912edb3f9cfab7c70930dcbafb3e5763;p=mit-scheme.git Remove unused EQ-SUBSET? definitions. --- diff --git a/v7/src/compiler/machines/alpha/inerly.scm b/v7/src/compiler/machines/alpha/inerly.scm index 102b3307d..be2472eba 100644 --- 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)) - + ;;;; 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 3023d3591..cd49f7b83 100644 --- 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 429c5767a..37f7ca9d6 100644 --- 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)) - + ;;;; 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 4c7ea5c8e..3eb3edd8f 100644 --- 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)) - + ;;;; 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 56fa57329..30e64ff31 100644 --- 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)) - + ;;;; 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