* Added a $bignums library that's now just holding the names of

primitive bignum functions.

src/ikarus.pretty-print.ss

@@ -423,13 +423,6 @@
         (cond
           [(not sep) 
            (output-rest-multi box* '(#f . #f) p col left)]
-          #;[(fx<= (fx+ (sum box*) col) (pretty-width))
-           (let g ([box* box*] [p p] [col col])
-             (cond
-               [(null? box*) col]
-               [else
-                (display " " p)
-                (g (cdr box*) p (f (car box*) p (fxadd1 col)))]))]
           [else 
            (let g ([box* box*] [p p] [left (fx+ left sep)] [col col])
              (cond

src/ikarus.writer.ss

@@ -98,7 +98,6 @@
            (write-char #\) p)
            i))))
 
-
   (define write-record
     (lambda (x p m h i)
       (write-char #\# p)

src/makefile.ss

@@ -118,6 +118,7 @@
     [$chars      (ikarus system $chars)       #f]
     [$strings    (ikarus system $strings)     #f]
     [$vectors    (ikarus system $vectors)     #f]
+    [$bignums    (ikarus system $bignums)     #f]
     [$bytes      (ikarus system $bytevectors) #f]
     [$fx         (ikarus system $fx)          #f]
     [$symbols    (ikarus system $symbols)     #f]
@@ -132,7 +133,6 @@
     [$boot       (ikarus system $bootstrap)   #f]
     ))
 
-
 (define bootstrap-collection
   (let ([ls (map 
               (lambda (x) 
@@ -499,6 +499,11 @@
     [$bytevector-u8-ref $bytes]
     [$bytevector-set!   $bytes]
 
+    [$make-bignum       $bignums]
+    [$bignum-sign       $bignums]
+    [$bignum-size       $bignums]
+    [$bignum-byte-ref   $bignums]
+    [$bignum-byte-set!  $bignums]
 
     [$make-vector       $vectors]
     [$vector-length     $vectors]