From 822c8fb3a0f28976da068f3dc8bf607d193d0fa1 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 25 Apr 2021 22:44:46 +0530 Subject: Add setter for source field of type. * ccwl/ccwl.scm (): Add functional setter set-output-source for source field. * .dir-locals.el (scheme-mode): Specify indentation for set-output-source. --- .dir-locals.el | 1 + ccwl/ccwl.scm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) 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 '())) -- cgit v1.2.3