* added bignum? primitive and removed ikrt_isbignum from the runtime

system.

src/libnumerics.ss

@@ -19,11 +19,11 @@
 
 (let ()
   
-  (define bignum? 
-    ; FIXME: temporary definition.  Compiler should be made aware
-    ; of numeric representation once it's stable enough.
-    (lambda (x)
-      (foreign-call "ikrt_isbignum" x)))
+  ;;; (define bignum? 
+  ;;;   ; FIXME: temporary definition.  Compiler should be made aware
+  ;;;   ; of numeric representation once it's stable enough.
+  ;;;   (lambda (x)
+  ;;;     (foreign-call "ikrt_isbignum" x)))
 
   (define (fixnum->flonum x)
     (foreign-call "ikrt_fixnum_to_flonum" x))
@@ -818,5 +818,7 @@
   (primitive-set! 'integer? integer?)
   (primitive-set! 'exact->inexact exact->inexact)
   (primitive-set! 'modulo modulo)
-  (primitive-set! 'bignum? bignum?)
+  (primitive-set! 'bignum? 
+    (lambda (x) (bignum? x)))
+
   )

src/makefile.ss

@@ -34,7 +34,7 @@
 (define public-primitives
   '(
     
-    null? pair? char? fixnum? symbol? gensym? string? vector? list?
+    null? pair? char? fixnum? bignum? symbol? gensym? string? vector? list?
     boolean? procedure?  not eof-object eof-object? bwp-object?
     void fx= fx< fx<= fx> fx>= fxzero?  fx+ fx- fx* fxadd1 fxsub1
     fxquotient fxremainder fxmodulo fxsll fxsra fxlognot fxlogor