[nongnu] elpa/geiser-racket d1b6da7 049/191: Racket: remote REPLs

[Philip Kaludercic]

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

    Racket: remote REPLs
---
 geiser/server.rkt | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/geiser/server.rkt b/geiser/server.rkt
new file mode 100644
index 0000000..cf86b2c
--- /dev/null
+++ b/geiser/server.rkt
@@ -0,0 +1,24 @@
+;;; server.rkt -- REPL server
+
+;; Copyright (c) 2010 Jose Antonio Ortega Ruiz
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the Modified BSD License. You should
+;; have received a copy of the license along with this program. If
+;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
+
+;; Start date: Sat Nov 06, 2010 15:15
+
+#lang racket/base
+
+(require geiser/user mzlib/thread)
+(provide run-geiser-server 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))))