Codebase list slib / cme/main mularg.scm
cme/main

Tree @cme/main (Download .tar.gz)

mularg.scm @cme/main — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
;;; "mularg.scm" Redefine - and / to take more than 2 arguments.

(define (mul:argumentizer op)
  (lambda (d1 . ds)
    (cond ((null? ds) (op d1))
	  ((null? (cdr ds)) (op d1 (car ds)))
	  (else (for-each (lambda (d) (set! d1 (op d1 d))) ds) d1))))
;@
(define / (mul:argumentizer /))
(define - (mul:argumentizer -))