Add fix:<mumble> to the list of constant-foldable-primitives.

diff --git a/v7/src/compiler/base/utils.scm b/v7/src/compiler/base/utils.scm
index e2c7b6def20af14371b21e6147fa1346f583fd06..f86fea2f15937b753b916ab3ad85b372e584123f 100644 (file)
--- a/v7/src/compiler/base/utils.scm
+++ b/v7/src/compiler/base/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 4.5 1988/06/14 08:34:06 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 4.6 1988/11/08 21:25:58 jinx Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -269,7 +269,10 @@ MIT in each case. |#
              = < > <= >= MAX MIN
              + - * / 1+ -1+ ABS QUOTIENT REMAINDER MODULO INTEGER-DIVIDE
              GCD LCM FLOOR CEILING TRUNCATE ROUND
-             EXP LOG EXPT SQRT SIN COS TAN ASIN ACOS ATAN))
+             EXP LOG EXPT SQRT SIN COS TAN ASIN ACOS ATAN
+             FIX:ZERO? FIX:NEGATIVE? FIX:POSITIVE?
+             FIX:= FIX:< FIX:> FIX:1+ FIX:-1+ FIX:+ FIX:- FIX:*
+             FIX:DIVIDE FIX:GCD FIX:QUOTIENT FIX:REMAINDER))
      (lexical-reference system-global-environment 'PRIMITIVE-PROCEDURE?))
    (list
     (ucode-primitive &+) (ucode-primitive &-)