From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 10 Aug 1989 08:18:40 +0000 (+0000)
Subject: Add new operations to do integer division followed by a rounding
X-Git-Tag: 20090517-FFI~11854
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=49d763ec13165e50c854a073f77cd74f3686b868;p=mit-scheme.git

Add new operations to do integer division followed by a rounding
operation.  They are like a combination of / and the respective
rounding operation, except that there are no non-integer intermediate
results.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 601e44d54..111b33d75 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.45 1989/08/09 11:08:34 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.46 1989/08/10 08:18:17 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -960,10 +960,15 @@ MIT in each case. |#
 	  imag-part
 	  inexact->exact
 	  inexact?
+	  integer-ceiling
 	  integer-divide
 	  integer-divide-quotient
 	  integer-divide-remainder
-	  integer-expt	  integer?
+	  integer-expt
+	  integer-floor
+	  integer-round
+	  integer-truncate
+	  integer?
 	  lcm
 	  log
 	  magnitude
diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm
index 29201de1c..2a1688195 100644
--- a/v7/src/runtime/version.scm
+++ b/v7/src/runtime/version.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.50 1989/08/09 11:08:43 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.51 1989/08/10 08:18:40 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -45,7 +45,7 @@ MIT in each case. |#
 		     '()))
   (add-system! microcode-system)
   (add-event-receiver! event:after-restore snarf-microcode-version!)
-  (add-identification! "Runtime" 14 50))
+  (add-identification! "Runtime" 14 51))
 (define microcode-system)
 
 (define (snarf-microcode-version!)
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 3506d736d..a5033755b 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.45 1989/08/09 11:08:34 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.46 1989/08/10 08:18:17 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -960,10 +960,15 @@ MIT in each case. |#
 	  imag-part
 	  inexact->exact
 	  inexact?
+	  integer-ceiling
 	  integer-divide
 	  integer-divide-quotient
 	  integer-divide-remainder
-	  integer-expt	  integer?
+	  integer-expt
+	  integer-floor
+	  integer-round
+	  integer-truncate
+	  integer?
 	  lcm
 	  log
 	  magnitude