;;; $Id: sum-mod.scm,v 1.2 2006/01/05 22:24:09 leavens Exp $

(module sum-mod (lib "typedscm.ss" "typedscm")

  (provide sum sum-of-list)
  
  (define sum
    (lambda args
      (sum-of-list args)))

  (define sum-of-list
    (lambda (lon)
      (if (null? lon)
          0
          (+ (car lon)
             (sum-of-list (cdr lon))))))

) ;; end module