Add scheme-mode indentation for SRFI 64, R7RS guard

* lisp/progmodes/scheme.el: Add properties for SRFI 64 and R7RS guard
identifiers.  (Bug#75999)

(cherry picked from commit d10acd16c90afe9fc8534fcd174397b7c403eda9)

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index b5d8d01b7d4728dce6bb51f7959f28a5788e485a..ab9a4915ca6d435a4e38ea21765ed87c9a53f9d9 100644 (file)
--- 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)
 \f
+;; SRFI 64
+(put 'test-group 'scheme-indent-function 1)
+(put 'test-group-with-cleanup 'scheme-indent-function 1)
+\f
 ;; 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)