diff options
| author | Arun Isaac | 2021-04-25 22:44:46 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-04-26 00:24:00 +0530 |
| commit | 822c8fb3a0f28976da068f3dc8bf607d193d0fa1 (patch) | |
| tree | 3d0c79f2377b94498d6a3ed3e4e19ad9010f3026 | |
| parent | 03ea705f5e6162d6d9dc7417e0db14d96c5715bb (diff) | |
| download | ccwl-822c8fb3a0f28976da068f3dc8bf607d193d0fa1.tar.gz ccwl-822c8fb3a0f28976da068f3dc8bf607d193d0fa1.tar.lz ccwl-822c8fb3a0f28976da068f3dc8bf607d193d0fa1.zip | |
Add setter for source field of <output> type.
* ccwl/ccwl.scm (<output>): Add functional setter set-output-source
for source field.
* .dir-locals.el (scheme-mode): Specify indentation for
set-output-source.
| -rw-r--r-- | .dir-locals.el | 1 | ||||
| -rw-r--r-- | ccwl/ccwl.scm | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index 0e2f8c5..d7401e1 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -5,5 +5,6 @@ (indent-tabs-mode)) (scheme-mode (eval put 'set-input-source 'scheme-indent-function nil) + (eval put 'set-output-source 'scheme-indent-function nil) (eval put 'set-step-in 'scheme-indent-function nil) (eval put 'lambda** 'scheme-indent-function 1))) diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 3dc3115..e173d9e 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -74,7 +74,7 @@ (id output-id) (type output-type) (binding output-binding) - (source output-source) + (source output-source set-output-source) (other output-other)) (define* (output id #:key (type 'File) binding source (other '())) |