From 332a47811f7d467a03518041e982178dd6654086 Mon Sep 17 00:00:00 2001
From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Tue, 30 Mar 2010 15:26:28 -0700
Subject: [PATCH] Export new fixnum ops and guarantees.

---
 src/runtime/runtime.pkg | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 6d24e2720..1be99788a 100644
--- 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")
-- 
2.25.1