From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Tue, 30 Mar 2010 22:26:28 +0000 (-0700)
Subject: Export new fixnum ops and guarantees.
X-Git-Tag: 20100708-Gtk~71^2~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=332a47811f7d467a03518041e982178dd6654086;p=mit-scheme.git

Export new fixnum ops and guarantees.
---

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")