[CM] How have this to be modified

[Marcus Roeckrath]

Hi,

a long time agao, it must in times of snd 3 or so I put in the following 
definitions in ~/.snd:

(define data-max
  (lambda ()
    (let ((maxval 0.0))
      (lambda (data len)
         (if data
             (do ((i 0 (1+ i)))
                 ((= i len) #f)
               (let ((curval (abs (vector-ref data i))))
                 (if (> curval maxval) (set! maxval curval))))
             maxval)))))

(define maxlevel
  (lambda ()
    (scan-across-all-chans (data-max))))

Now I used this again but it doesn't work. scan-across-all-chans isn't there 
available anymor. data-max seams to be icompatible, gives an error.

Can someone tell me how I have to modify these functions?

Thanks.

-- 

Gruss Marcus

Marcus Roeckrath -- Vikarsbusch 8 -- D-48308 Senden -- Germany
Phone  : +49-2536-9944 -- Mailer/BBS/Fax : +49-2536-9943 (V34, X75)
FidoNet: 2:2449/523
E-Mail : marcus.roeckrath@gmx.de
WWW    : http://home.foni.net/~marcusroeckrath/