emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/geiser-racket 99acb21 175/191: Fix indentation


From: Philip Kaludercic
Subject: [nongnu] elpa/geiser-racket 99acb21 175/191: Fix indentation
Date: Sun, 1 Aug 2021 18:32:24 -0400 (EDT)

branch: elpa/geiser-racket
commit 99acb215889bb589c4f60e45a8bb11b58ba4d92f
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Fix indentation
---
 geiser/autodoc.rkt | 6 +++---
 geiser/modules.rkt | 6 +++---
 geiser/user.rkt    | 2 +-
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/geiser/autodoc.rkt b/geiser/autodoc.rkt
index 04a0c09..b7f6289 100644
--- a/geiser/autodoc.rkt
+++ b/geiser/autodoc.rkt
@@ -27,9 +27,9 @@
 
 (define (preload-help)
   (set! loader-thread
-        (thread (lambda ()
-                  (with-output-to-string (lambda ()
-                                           (help meh-i-dont-exist)))))))
+    (thread (lambda ()
+              (with-output-to-string (lambda ()
+                                       (help meh-i-dont-exist)))))))
 
 (define here (current-namespace))
 
diff --git a/geiser/modules.rkt b/geiser/modules.rkt
index 93d8b79..77a404a 100644
--- a/geiser/modules.rkt
+++ b/geiser/modules.rkt
@@ -14,7 +14,7 @@
 (provide load-module
          ensure-module-spec
          module-spec->namespace
-        namespace->module-name
+         namespace->module-name
          namespace->module-path-name
          module-path-name->name
          module-spec->path-name
@@ -221,7 +221,7 @@
   module-cache)
 
 (define (startup)
- (thread update-module-cache)
- (void))
+  (thread update-module-cache)
+  (void))
 
 (startup)
diff --git a/geiser/user.rkt b/geiser/user.rkt
index b936219..b136dcd 100644
--- a/geiser/user.rkt
+++ b/geiser/user.rkt
@@ -91,7 +91,7 @@
   (flush-output (current-error-port))
   (flush-output (current-output-port))
   (let* ([in ((current-get-interaction-input-port))]
-        [form ((current-read-interaction) (object-name in) in)])
+         [form ((current-read-interaction) (object-name in) in)])
     (syntax-case form ()
       [(uq cmd) (eq? 'unquote (syntax-e #'uq))
        (case (syntax-e #'cmd)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]