diff options
| author | Arun Isaac | 2021-03-06 00:39:26 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-03-06 00:44:10 +0530 |
| commit | cc8900ad642fbef2a777738170d217a17790775e (patch) | |
| tree | e95dbef823b6a44a1159db902dc424885cf6e9d3 | |
| parent | 38656be861ce09142fbe676bfdd6b8a60848d2eb (diff) | |
| download | ccwl-cc8900ad642fbef2a777738170d217a17790775e.tar.gz ccwl-cc8900ad642fbef2a777738170d217a17790775e.tar.lz ccwl-cc8900ad642fbef2a777738170d217a17790775e.zip | |
Re-order fields of <input> type.
* ccwl/ccwl.scm (<input>): Re-order <input> fields to be consistent
with its constructor.
| -rw-r--r-- | ccwl/ccwl.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 2dc3b66..24e86f0 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -23,8 +23,8 @@ input? (id input-id) (type input-type) - (default input-default) (label input-label) + (default input-default) (other input-other)) (define-immutable-record-type <unspecified-default> @@ -33,7 +33,7 @@ (define* (input id #:key type label (default (make-unspecified-default)) (other '())) "Build and return an <input> object." - (make-input id type default label other)) + (make-input id type label default other)) (define-immutable-record-type <output> (make-output id type binding source other) |