[nongnu] elpa/geiser-racket e43de25 047/191: geiser-squarify to toggle between () and []

[Philip Kaludercic]

branch: elpa/geiser-racket
commit e43de25c41074653f77828000599b665b2df35d3
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    geiser-squarify to toggle between () and []
---
 geiser/user.rkt | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/geiser/user.rkt b/geiser/user.rkt
index 26c351b..37763b9 100644
--- a/geiser/user.rkt
+++ b/geiser/user.rkt
@@ -37,16 +37,16 @@
 (define (geiser-eval)
   (define geiser-main (module->namespace 'geiser/main))
   (geiser-send-null #t)
-  (let* ((mod (read))
-         (lang (read))
-         (form (read)))
+  (let* ([mod (read)]
+         [lang (read)]
+         [form (read)])
     (datum->syntax #f
                    (list 'quote
-                         (cond ((equal? form '(unquote apply))
-                                (let* ((proc (eval (read) geiser-main))
-                                       (args (read)))
-                                  ((geiser:eval lang) `(,proc ,@args) mod)))
-                               (else ((geiser:eval lang) form mod)))))))
+                         (cond [(equal? form '(unquote apply))
+                                (let* ([proc (eval (read) geiser-main)]
+                                       [args (read)])
+                                  ((geiser:eval lang) `(,proc ,@args) mod))]
+                               [else ((geiser:eval lang) form mod)])))))
 
 (define (geiser-read)
   (if (geiser-send-null)