From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 11 Sep 1995 13:35:59 +0000 (+0000)
Subject: Added {CEILING,FLOOR,ROUND,TRUNCATE}->EXACT to global references.
X-Git-Tag: 20090517-FFI~5965
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=320b4a0041199b8bf30d55ec30ded417ced46dff;p=mit-scheme.git

Added {CEILING,FLOOR,ROUND,TRUNCATE}->EXACT to global references.
---

diff --git a/v8/src/sf/usiexp.scm b/v8/src/sf/usiexp.scm
index 4f9da298f..cd797d762 100644
--- a/v8/src/sf/usiexp.scm
+++ b/v8/src/sf/usiexp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: usiexp.scm,v 1.8 1995/09/08 03:09:28 adams Exp $
+$Id: usiexp.scm,v 1.9 1995/09/11 13:35:59 adams Exp $
 
 Copyright (c) 1988-1995 Massachusetts Institute of Technology
 
@@ -708,6 +708,7 @@ MIT in each case. |#
     ACOS
     ASIN
     ATAN
+    CEILING->EXACT
     COS
     EQV?
     ERROR
@@ -716,14 +717,17 @@ MIT in each case. |#
     ERROR:WRONG-TYPE-DATUM
     EXP
     EXPT
+    FLOOR->EXACT
     FOR-EACH
     LIST-REF
     LOG
     MEMQ
+    ROUND->EXACT
     SIN
     SQRT
     STRING->SYMBOL
     TAN
+    TRUNCATE->EXACT
     ))
 
 ;;;;  Hooks and utilities for user defined reductions and expanders