summaryrefslogtreecommitdiff
path: root/scheme/racket
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-08 05:44:18 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-08 05:44:18 +0100
commitf8acd072a81821c6ebb3a8bf7e057f45243e7810 (patch)
tree695376a4bf1a2c18c338cf9651e1274a307c28db /scheme/racket
parentca4e24ea7c39abb47683e68bac42807f2fe79eb0 (diff)
downloadgeiser-guile-f8acd072a81821c6ebb3a8bf7e057f45243e7810.tar.gz
geiser-guile-f8acd072a81821c6ebb3a8bf7e057f45243e7810.tar.bz2
geiser-squarify to toggle between () and []
Diffstat (limited to 'scheme/racket')
-rw-r--r--scheme/racket/geiser/user.rkt16
1 files changed, 8 insertions, 8 deletions
diff --git a/scheme/racket/geiser/user.rkt b/scheme/racket/geiser/user.rkt
index 26c351b..37763b9 100644
--- a/scheme/racket/geiser/user.rkt
+++ b/scheme/racket/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)