diff options
author | David Thompson <dthompson2@worcester.edu> | 2014-06-28 18:46:16 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2014-06-28 18:46:16 -0400 |
commit | f47eb69a354188154731846dde8b384c2c2f39f6 (patch) | |
tree | 6aa1ccb9212836b7c941e771475eb995fa6df9f9 /2d/repl.scm | |
parent | df0f2a5f3f09394f1953abbc7e33e9a98204680e (diff) |
Rename guile-2d to Sly!
Massive find/replace job.
Diffstat (limited to '2d/repl.scm')
-rw-r--r-- | 2d/repl.scm | 37 |
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))))) |