Just a simple implementation of the max function in scheme.

max.scm

;; original function from a while back
(define (max . lst) 
 (let (
   (x  (car lst)) 
   (xs (cdr lst))) 
  (if (null? xs) 
   x 
   (let ((xs_max (apply max xs))) 
    (if (> x xs_max) 
     x 
     xs_max)))))
     
;; update after enlightenment

(define (max . args)
  (define (fn acc e)
    (if (> acc e) acc e))
  (reduce fn args))