Subject: bug#75999: [PATCH] Add scheme-mode indentation for SRFI 64, R7RS guard

From: Antero Mejr <[email-masked]>
Date: Sat, 01 Feb 2025 15:42:01 -0500

Tags: patch

Add rules for identifiers test-group, test-group-with-cleanup, guard.

>From d6e63e6133d826cdc7e3c4c31224722c6c287d6f Mon Sep 17 00:00:00 2001
From: Antero Mejr <[email-masked]>
Date: Sat, 18 Jan 2025 22:35:39 -0500
Subject: [PATCH] Add scheme-mode indentation for SRFI 64, R7RS guard

* lisp/progmodes/scheme.el: Add properties for SRFI 64 and R7RS guard
identifiers.
---
 lisp/progmodes/scheme.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 8896c2547c8..6fa92164f43 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -681,10 +681,15 @@ indentation."
 (put 'define-values 'scheme-indent-function 1)
 (put 'define-record-type 'scheme-indent-function 1) ;; is 1 correct?
 (put 'define-library 'scheme-indent-function 1)
+(put 'guard 'scheme-indent-function 1)
 
 ;; SRFI-8
 (put 'receive 'scheme-indent-function 2)
 
+;; SRFI 64
+(put 'test-group 'scheme-indent-function 1)
+(put 'test-group-with-cleanup 'scheme-indent-function 1)
+
 ;; SRFI-204 (withdrawn, but provided in many implementations, see the SRFI text)
 (put 'match 'scheme-indent-function 1)
 (put 'match-lambda 'scheme-indent-function 0)
-- 
2.43.0