From 2a14921852ae58526c40bc8d2219bbc2e101184f Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 18 Oct 2021 00:29:56 +0530
Subject: ccwl: Add setter for name field of <key> type.

* ccwl/ccwl.scm (<key>): Add setter set-key-name.
---
 ccwl/ccwl.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index fa79827..aca89cd 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -224,7 +224,7 @@ RUN-ARGS. If such an input is not present in RUN-ARGS, return #f."
 (define-immutable-record-type <key>
   (make-key name cwl-id step)
   key?
-  (name key-name)
+  (name key-name set-key-name)
   (cwl-id key-cwl-id)
   (step key-step))
 
-- 
cgit v1.2.3