From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 28 Feb 1995 01:42:59 +0000 (+0000)
Subject: Removed duplicate of SIMPLE-OPERATOR?
X-Git-Tag: 20090517-FFI~6577
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cb3ce13e361852407145c475998d5bc263ec7180;p=mit-scheme.git

Removed duplicate of SIMPLE-OPERATOR?
---

diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm
index 74a40740c..0c8190d47 100644
--- a/v8/src/compiler/midend/utils.scm
+++ b/v8/src/compiler/midend/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: utils.scm,v 1.18 1995/02/27 22:40:58 adams Exp $
+$Id: utils.scm,v 1.19 1995/02/28 01:42:59 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -577,9 +577,6 @@ Example use of FORM/COPY-TRANSFORMING:
 		  (else false)))
 	   (else false)))))
 
-(define (simple-operator? rator)
-  (operator/satisfies? rator '(SIMPLE)))
-
 (define (pseudo-simple-operator? rator)
   (or (operator/satisfies? rator '(SIMPLE))
       (operator/satisfies? rator '(OUT-OF-LINE-HOOK))))