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 601e44d544be60cc4d3b8a3c17dffdf64c5703d1..111b33d7505e77cb44732537056b3e8488ae5c49 100644 (file)
--- 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 29201de1c6bec3b27dab2867eba49143848d116e..2a16881951f18dedd2da9e324c056271dec998be 100644 (file)
--- 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 3506d736dbfa740a4af70b0f8c6b7ada031ec105..a5033755bbaee4c4975890891ca211d0bd380cea 100644 (file)
--- 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