summaryrefslogtreecommitdiff
path: root/2d/repl.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-06-28 18:46:16 -0400
committerDavid Thompson <dthompson2@worcester.edu>2014-06-28 18:46:16 -0400
commitf47eb69a354188154731846dde8b384c2c2f39f6 (patch)
tree6aa1ccb9212836b7c941e771475eb995fa6df9f9 /2d/repl.scm
parentdf0f2a5f3f09394f1953abbc7e33e9a98204680e (diff)
Rename guile-2d to Sly!
Massive find/replace job.
Diffstat (limited to '2d/repl.scm')
-rw-r--r--2d/repl.scm37
1 files changed, 0 insertions, 37 deletions
diff --git a/2d/repl.scm b/2d/repl.scm
deleted file mode 100644
index f48b6d2..0000000
--- a/2d/repl.scm
+++ /dev/null
@@ -1,37 +0,0 @@
-;;; guile-2d
-;;; Copyright (C) 2014 David Thompson <dthompson2@worcester.edu>
-;;;
-;;; This program is free software: you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation, either version 3 of the
-;;; License, or (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program. If not, see
-;;; <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; Cooperative REPL server extension.
-;;
-;;; Code:
-
-(define-module (2d repl)
- #:use-module (system repl coop-server)
- #:use-module (system repl server)
- #:use-module (2d agenda)
- #:export (start-2d-repl))
-
-(define* (start-2d-repl #:optional (port (make-tcp-server-socket #:port 37146)))
- "Start a cooperative REPL server that listens on the given PORT. By
-default, this port is 37146. Additionally, a process is scheduled to
-poll the REPL server upon every tick of the game loop."
- (let ((server (spawn-coop-repl-server port)))
- (schedule-each
- (lambda ()
- (poll-coop-repl-server server)))))