home *** CD-ROM | disk | FTP | other *** search
/ Dream 44 / Amiga_Dream_44.iso / RiscPc / programmation / scm4e2.arc / !Scm / slib / mularg < prev    next >
Text File  |  1994-12-08  |  297b  |  11 lines
  1. ;;; "mularg.scm" Redefine - and / to take more than 2 arguments.
  2.  
  3. (let ((maker
  4.        (lambda (op)
  5.      (lambda (d1 . ds)
  6.        (cond ((null? ds) (op d1))
  7.          ((null? (cdr ds)) (op d1 (car ds)))
  8.          (else (for-each (lambda (d) (set! d1 (op d1 d))) ds) d1))))))
  9.   (set! / (maker /))
  10.   (set! - (maker -)))
  11.