diff options
| author | Arun Isaac | 2021-07-20 17:18:37 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-07-20 17:18:37 +0530 |
| commit | dc5273cbb260e03f181e5c3158c4cdc4d483f599 (patch) | |
| tree | db65c695f49504e79854bee2532c4becafa0b74b | |
| parent | cdedc54e7c51755103d78014e8a8773d82110c63 (diff) | |
| download | ccwl-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.scm | 2 |
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) |