Export new fixnum ops and guarantees.

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 6d24e272084082f52e08a8eefa06b51ce7fec3bc..1be99788ad1312fd83f11f6ba6fce6d574540022 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -253,8 +253,13 @@ USA.
          flo:vector-set!
          flo:with-rounding-mode
          flo:zero?
+         guarantee-fixnum
          guarantee-index-fixnum
          guarantee-limited-index-fixnum
+         guarantee-negative-fixnum
+         guarantee-non-negative-fixnum
+         guarantee-non-positive-fixnum
+         guarantee-positive-fixnum
          index-fixnum?
          int:*
          int:+
@@ -274,7 +279,11 @@ USA.
          int:positive?
          int:quotient
          int:remainder
-         int:zero?))
+         int:zero?
+         negative-fixnum?
+         non-negative-fixnum?
+         non-positive-fixnum?
+         positive-fixnum?))
 
 (define-package (runtime keyword)
   (files "keyword")