blob: 4bfac03b06500c57e7a3ff00bb3b72e532ea7a22 (
plain)
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 / (let ((/ /)) (mul:argumentizer /)))
(define - (let ((- -)) (mul:argumentizer -)))
|
