summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser/server.rkt
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-11 16:27:01 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-11 16:27:01 +0100
commit8d1e1c47563131cd0f52f0cc02fa0b23eebd2227 (patch)
treebd616c0bf1c0a57062f8b0bb9dc702f7edb813e5 /scheme/racket/geiser/server.rkt
parentd773c05503659047f35878bd745568ce04078148 (diff)
downloadgeiser-guile-8d1e1c47563131cd0f52f0cc02fa0b23eebd2227.tar.gz
geiser-guile-8d1e1c47563131cd0f52f0cc02fa0b23eebd2227.tar.bz2
Racket reconnected
Diffstat (limited to 'scheme/racket/geiser/server.rkt')
-rw-r--r--scheme/racket/geiser/server.rkt12
1 files changed, 2 insertions, 10 deletions
diff --git a/scheme/racket/geiser/server.rkt b/scheme/racket/geiser/server.rkt
index cf86b2c..10b15a1 100644
--- a/scheme/racket/geiser/server.rkt
+++ b/scheme/racket/geiser/server.rkt
@@ -11,14 +11,6 @@
#lang racket/base
-(require geiser/user mzlib/thread)
-(provide run-geiser-server start-geiser)
+(require geiser/user)
+(provide start-geiser)
-(define (run-geiser-server port enforce-module-constants)
- (run-server port
- (lambda (in out)
- (run-geiser-repl in out enforce-module-constants))
- #f))
-
-(define (start-geiser (port 1969) (enforce-module-constants #f))
- (thread (lambda () (run-geiser-server port enforce-module-constants))))