diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-09 21:52:56 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-09 21:52:56 +0100 |
| commit | 27916d2da2e43f231daff12249b19701f5a27b4f (patch) | |
| tree | 8425627764ba5a195a25665da5a2c62ce2f221bd /scheme/racket/geiser/server.rkt | |
| parent | d830e14a4010284b4085d9942bfd856b0360d793 (diff) | |
| parent | f2bf4b2cda05fe8c32ee74ce3b5cce743d81de61 (diff) | |
| download | geiser-guile-27916d2da2e43f231daff12249b19701f5a27b4f.tar.gz geiser-guile-27916d2da2e43f231daff12249b19701f5a27b4f.tar.bz2 | |
Merge branch 'master' into guile-meta
Conflicts:
elisp/geiser-guile.el
Diffstat (limited to 'scheme/racket/geiser/server.rkt')
| -rw-r--r-- | scheme/racket/geiser/server.rkt | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/scheme/racket/geiser/server.rkt b/scheme/racket/geiser/server.rkt new file mode 100644 index 0000000..cf86b2c --- /dev/null +++ b/scheme/racket/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)))) |