From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 13 Apr 1992 04:44:50 +0000 (+0000)
Subject: A few little changes, plus,
X-Git-Tag: 20090517-FFI~9494
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c86ae09a0ad8ada60c398211d2372732beb86a0f;p=mit-scheme.git

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 dccfef089..be2ecdce8 100644
--- 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