From 7e0464154a54a0ca1b2b92856ec0cddecf841af7 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Tue, 29 Dec 2009 18:45:22 +0900
Subject: [PATCH] number? includes a check for bignums (issue #19)

---
 lib/init.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/init.scm b/lib/init.scm
index cd50ad37..d448a650 100644
--- a/lib/init.scm
+++ b/lib/init.scm
@@ -421,7 +421,7 @@
 
 ;; math utils
 
-(define (number? x) (if (fixnum? x) #t (flonum? x)))
+(define (number? x) (if (fixnum? x) #t (if (bignum? x) #t (flonum? x))))
 (define complex? number?)
 (define rational? number?)
 (define real? number?)