From 8fed4186e04a90ddea523a9a753c972d77c1ec77 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 16 Jan 2025 07:40:47 -0700
Subject: [PATCH] adjust indentation style

---
 s/ftype.ss | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/s/ftype.ss b/s/ftype.ss
index 461d7f350..a3c7d81ca 100644
--- a/s/ftype.ss
+++ b/s/ftype.ss
@@ -256,11 +256,11 @@ ftype operators:
                #f
                #t)])
       (make-compile-time-value
-       (lambda (which)
-         (case which
-           [(base) rtd]
-           [(object) rtd/object]
-           [_ ($oops 'get-rtd/fptr "unrecognized ~s" which)])))))
+        (lambda (which)
+          (case which
+            [(base) rtd]
+            [(object) rtd/object]
+            [_ ($oops 'get-rtd/fptr "unrecognized ~s" which)])))))
   (define-syntax rtd/fptr
     (lambda (x) (lambda (r) #`'#,((r #'get-rtd/fptr) 'base))))
   (define-syntax rtd/object-fptr