A few little changes, plus,

Change conditionalization of the open-coding of floating-point
primitives.  It was previously done statically when the compiler was
built.  It is now done at the point of the call, so the switch can be
meaningfully fluid-let around a compilation.

Add the unsafe open-coding of integer->char.
Add a couple of optimizations to plus-fixnum and minus-fixnum.

diff --git a/v7/src/compiler/base/make.scm b/v7/src/compiler/base/make.scm
index dccfef08928229a9bb945375a9e7e4b39e24ceaf..be2ecdce8588ef7d68b6d97cdaf8700c7999e3ca 100644 (file)
--- a/v7/src/compiler/base/make.scm
+++ b/v7/src/compiler/base/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/make.scm,v 4.89 1991/11/04 20:35:30 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/make.scm,v 4.90 1992/04/13 04:44:50 jinx Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -46,5 +46,5 @@ MIT in each case. |#
     (initialize-package! '(COMPILER DECLARATIONS)))
   (add-system!
    (make-system (string-append "Liar (" architecture-name ")")
-               4 89
+               4 90
                '())))
\ No newline at end of file