Made *operator-properties* more abstract.

diff --git a/v8/src/compiler/midend/ea2.scm b/v8/src/compiler/midend/ea2.scm
index 5bb208933cebc7b2925da98c51d50fdf3707eac0..08d5d1bf7b307ee8707348429003cbc0ba5aa9ca 100644 (file)
--- 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 5f95c364a20eaff48735c404d2fc743bd3150416..2688b37b1a737ef02dcccf8bed7dfd86b3694dd7 100644 (file)
--- 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 5ab0482cbaaebe4266a02220643c12553a36633e..dbc7290b0ae38bc0b1bafa002b7878c82762b14b 100644 (file)
--- 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 130b30e6ee03b6d2835fbd0b0a5889e046151931..4226ac978141449d0e57085d4f4a4a483a1a440d 100644 (file)
--- 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. |#
 \f
 (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!