* Added real-part and imag-part stubs.

* string->number now supports a second radix argument, but the
     argument can only be 10.

scheme/ikarus.numerics.ss

@@ -1993,6 +1993,16 @@
         [else (error 'log "not a number" x)])))
 
   (define string->number
+    (case-lambda
+      [(x) (string->number-radix-10 x)]
+      [(x r) 
+       (unless (eqv? r 10) 
+         (error 'string->number
+                "BUG: only radix 10 is supported"
+                x r))
+       (string->number-radix-10 x)]))
+
+  (define string->number-radix-10
     (lambda (x)
       (define (convert-char c radix)
         (case radix
@@ -2289,6 +2299,29 @@
 
   )
 
+(library (ikarus complexnums)
+  (export real-part imag-part)
+  (import (except (ikarus) real-part imag-part))
+  ;;; stub implementation since we don't have a way of 
+  ;;; constructing complex numbers yet.
+
+  (define real-part
+    (lambda (x) 
+      (if (number? x) 
+          x
+          (error 'real-part "not a number" x))))
+
+  (define imag-part
+    (lambda (x)
+      (cond
+        [(fixnum? x) 0]
+        [(bignum? x) 0]
+        [(ratnum? x) 0]
+        [(flonum? x) 0.0]
+        [else 
+         (error 'imag-part "not a number" x)]))))
+
+
 
 (library (ikarus flonum-conversion)
   (export string->flonum flonum->string)