From 2bf83832b926ded8aae9f46e7f00d2c1dd9d1bee Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Thu, 16 Dec 2010 14:45:31 -0500
Subject: [PATCH] Fix zero? error message. Accepts any number, not just reals.

---
 src/racket/src/numcomp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/numcomp.c b/src/racket/src/numcomp.c
index 6b74b3d066..ea2f9fd8a4 100644
--- a/src/racket/src/numcomp.c
+++ b/src/racket/src/numcomp.c
@@ -397,7 +397,7 @@ zero_p (int argc, Scheme_Object *argv[])
   int v;
   v = scheme_is_zero(argv[0]);
   if (v < 0) {
-    NEED_REAL(zero?);
+    NEED_NUMBER(zero?);
     ESCAPED_BEFORE_HERE;
   }
   return (v ? scheme_true : scheme_false);