From dc5273cbb260e03f181e5c3158c4cdc4d483f599 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 20 Jul 2021 17:18:37 +0530
Subject: ccwl: Do not specify '() as the default value for n-ary arguments.

Specifying '() as the default value for n-ary arguments is now
equivalent to specifying '(()) as the default value. This is wrong.

* ccwl/ccwl.scm (command): Do not explicitly specify the emtpy list as
the default value for n-ary arguments.
---
 ccwl/ccwl.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 2bd75b8..37f8177 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -101,7 +101,7 @@ association list."
 ;; TODO: Add fine-grained syntax checking.
 (define-syntax command
   (lambda (x)
-    ((syntax-lambda** (#:key stdin #:key* (inputs '()) (outputs '()) run (other '()))
+    ((syntax-lambda** (#:key stdin #:key* inputs outputs run other)
        (let ((inputs
               ;; Canonicalize inputs.
               (map (lambda (x)
-- 
cgit v1.2.3