aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-07-20 17:18:37 +0530
committerArun Isaac2021-07-20 17:18:37 +0530
commitdc5273cbb260e03f181e5c3158c4cdc4d483f599 (patch)
treedb65c695f49504e79854bee2532c4becafa0b74b
parentcdedc54e7c51755103d78014e8a8773d82110c63 (diff)
downloadccwl-dc5273cbb260e03f181e5c3158c4cdc4d483f599.tar.gz
ccwl-dc5273cbb260e03f181e5c3158c4cdc4d483f599.tar.lz
ccwl-dc5273cbb260e03f181e5c3158c4cdc4d483f599.zip
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.
-rw-r--r--ccwl/ccwl.scm2
1 files changed, 1 insertions, 1 deletions
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)