From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 10 Aug 1995 13:42:50 +0000 (+0000)
Subject: Made *operator-properties* more abstract.
X-Git-Tag: 20090517-FFI~6046
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=533cdf2c34a8c246457999828599d5d957ced734;p=mit-scheme.git

Made *operator-properties* more abstract.
---

diff --git a/v8/src/compiler/midend/ea2.scm b/v8/src/compiler/midend/ea2.scm
index 5bb208933..08d5d1bf7 100644
--- a/v8/src/compiler/midend/ea2.scm
+++ b/v8/src/compiler/midend/ea2.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ea2.scm,v 1.3 1995/05/14 01:17:55 adams Exp $
+$Id: ea2.scm,v 1.4 1995/08/10 13:42:50 adams Exp $
 
 Copyright (c) 1995 Massachusetts Institute of Technology
 
@@ -141,9 +141,7 @@ MIT in each case. |#
 
 (define (define-rewrite/early operator-name-or-object handler)
   (hash-table/put! *early-rewritten-operators*
-		   (if (hash-table/get *operator-properties*
-				       operator-name-or-object
-				       false)
+		   (if (know-operator? operator-name-or-object)
 		       operator-name-or-object
 		       (make-primitive-procedure operator-name-or-object))
 		   handler))
diff --git a/v8/src/compiler/midend/earlyrew.scm b/v8/src/compiler/midend/earlyrew.scm
index 5f95c364a..2688b37b1 100644
--- a/v8/src/compiler/midend/earlyrew.scm
+++ b/v8/src/compiler/midend/earlyrew.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: earlyrew.scm,v 1.9 1995/05/16 02:43:14 adams Exp $
+$Id: earlyrew.scm,v 1.10 1995/08/10 13:41:57 adams Exp $
 
 Copyright (c) 1994-1995 Massachusetts Institute of Technology
 
@@ -140,9 +140,7 @@ MIT in each case. |#
 
 (define (define-rewrite/early operator-name-or-object handler)
   (hash-table/put! *early-rewritten-operators*
-		   (if (hash-table/get *operator-properties*
-				       operator-name-or-object
-				       false)
+		   (if (known-operator? operator-name-or-object)
 		       operator-name-or-object
 		       (make-primitive-procedure operator-name-or-object))
 		   handler))
diff --git a/v8/src/compiler/midend/laterew.scm b/v8/src/compiler/midend/laterew.scm
index 5ab0482cb..dbc7290b0 100644
--- a/v8/src/compiler/midend/laterew.scm
+++ b/v8/src/compiler/midend/laterew.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: laterew.scm,v 1.8 1995/07/06 21:48:58 adams Exp $
+$Id: laterew.scm,v 1.9 1995/08/10 13:41:21 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -242,9 +242,7 @@ MIT in each case. |#
 
 (define (define-rewrite/late operator-name-or-object handler)
   (hash-table/put! *late-rewritten-operators*
-		   (if (hash-table/get *operator-properties*
-				       operator-name-or-object
-				       false)
+		   (if (known-operator? operator-name-or-object)
 		       operator-name-or-object
 		       (make-primitive-procedure operator-name-or-object))
 		   handler))
diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm
index 130b30e6e..4226ac978 100644
--- a/v8/src/compiler/midend/rtlgen.scm
+++ b/v8/src/compiler/midend/rtlgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rtlgen.scm,v 1.34 1995/08/07 16:12:35 adams Exp $
+$Id: rtlgen.scm,v 1.35 1995/08/10 13:40:43 adams Exp $
 
 Copyright (c) 1994-1995 Massachusetts Institute of Technology
 
@@ -2832,7 +2832,7 @@ MIT in each case. |#
 
 (define (define-open-coder name-or-object nargs
 	  vhandler shandler phandler ohandler sphandler)
-  (let ((rator (if (hash-table/get *operator-properties* name-or-object false)
+  (let ((rator (if (known-operator? name-or-object)
 		   name-or-object
 		   (make-primitive-procedure name-or-object nargs))))
     (hash-table/put!