Codebase list slib / e4ff2a26-c485-4368-a623-8d538b08116f/main mularg.scm
e4ff2a26-c485-4368-a623-8d538b08116f/main

Tree @e4ff2a26-c485-4368-a623-8d538b08116f/main (Download .tar.gz)

mularg.scm @e4ff2a26-c485-4368-a623-8d538b08116f/mainraw · history · blame

;;; "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 -))