- added two argument version of log

- handled (/ flonum complexnum)

scheme/ikarus.numerics.ss

@@ -1174,6 +1174,7 @@
            [(fixnum? y) ($fl/ x ($fixnum->flonum y))]
            [(bignum? y) ($fl/ x (bignum->flonum y))]
            [(ratnum? y) ($fl/ x (ratnum->flonum y))]
+           [(or (cflonum? y) (compnum? y)) (x/compy x y)]
            [else (err '/ y)])]
         [(fixnum? x)
          (cond
@@ -2756,7 +2757,8 @@
         [else x])))
 
   (define log
-    (lambda (x)
+    (case-lambda 
+      [(x)
        (cond
          [(fixnum? x) 
           (cond
@@ -2791,7 +2793,12 @@
               (make-rectangular 
                 (/ (ln (+ (* xr xr) (* xi xi))) 2)
                 (atan xi xr))))]
-        [else (die 'log "not a number" x)])))
+         [else (die 'log "not a number" x)])]
+      [(x y)
+       (let ([ly (log y)])
+         (if (eqv? ly 0) 
+             (die 'log "invalid arguments" x y)
+             (/ (log x) ly)))]))
 
   (define (random n) 
     (if (fixnum? n) 

scheme/last-revision

@@ -1 +1 @@
-1574
+1575