From 8ffbc2df0fde83082610149d24e594c1cd879f4a Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:25 -0800
Subject: Import Upstream version 2a6

---
 mularg.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 mularg.scm

(limited to 'mularg.scm')

diff --git a/mularg.scm b/mularg.scm
new file mode 100644
index 0000000..3d62cf4
--- /dev/null
+++ b/mularg.scm
@@ -0,0 +1,10 @@
+;;; "mularg.scm" Redefine - and / to take more than 2 arguments.
+
+(let ((maker
+       (lambda (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))))))
+  (set! / (maker /))
+  (set! - (maker -)))
-- 
cgit v1.2.3