Enable open-coding of certain primitives.

diff --git a/v7/src/compiler/machines/C/machin.scm b/v7/src/compiler/machines/C/machin.scm
index ed500ce25049eefac77d06d4e889b1a27fff0672..e07d6340bc162fbe2475d8da26998ad739455aa8 100644 (file)
--- a/v7/src/compiler/machines/C/machin.scm
+++ b/v7/src/compiler/machines/C/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 1.4 1993/10/26 02:59:34 gjr Exp $
+$Id: machin.scm,v 1.5 1993/10/28 02:55:01 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -308,11 +308,5 @@ MIT in each case. |#
   true)
 
 (define compiler:primitives-with-no-open-coding
-  '(
-    DIVIDE-FIXNUM GCD-FIXNUM  &/ FLONUM-SIN FLONUM-COS FLONUM-TAN
-    FLONUM-ASIN FLONUM-ACOS
-    FLONUM-ATAN FLONUM-EXP FLONUM-LOG FLONUM-TRUNCATE FLONUM-ROUND
-    FLONUM-REMAINDER FLONUM-SQRT
-    VECTOR-CONS STRING-ALLOCATE FLOATING-VECTOR-CONS
-    FLOATING-VECTOR-REF FLOATING-VECTOR-SET!))
-
+  '(DIVIDE-FIXNUM GCD-FIXNUM &/
+    VECTOR-CONS STRING-ALLOCATE FLOATING-VECTOR-CONS))
\ No newline at end of file

diff --git a/v7/src/compiler/machines/C/rgspcm.scm b/v7/src/compiler/machines/C/rgspcm.scm
index 880df131f176cc8f1489374d9609ead74c2893cf..18bf86c308036f70bb7c8671c7278a1ea6e8d6fd 100644 (file)
--- a/v7/src/compiler/machines/C/rgspcm.scm
+++ b/v7/src/compiler/machines/C/rgspcm.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: rgspcm.scm,v 1.1 1993/06/08 06:13:32 gjr Exp $
+$Id: rgspcm.scm,v 1.2 1993/10/28 02:55:10 gjr Exp $
 
-Copyright (c) 1992 Massachusetts Institute of Technology
+Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -70,5 +70,11 @@ MIT in each case. |#
 (define-special-primitive/standard 'zero?)
 (define-special-primitive/standard 'positive?)
 (define-special-primitive/standard 'negative?)
-
-
+(define-special-primitive/standard 'quotient)
+(define-special-primitive/standard 'remainder)
+
+#|
+(define-special-primitive/if-open-coding 'vector-cons)
+(define-special-primitive/if-open-coding 'string-allocate)
+(define-special-primitive/if-open-coding 'floating-vector-cons)
+|#
\ No newline at end of file