summaryrefslogtreecommitdiff
path: root/starling/kernel.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2020-10-06 08:01:58 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2020-10-06 08:01:58 -0400
commitadaf2c55d61d78398e3be355a9390551db47516f (patch)
tree1e04d8644033d976211bfb0a35bac2776d30d6c9 /starling/kernel.scm
parent43adba9ea35bd416f2e5b704c320c25a8b660dc4 (diff)
Rename repl module to repl-server.
Diffstat (limited to 'starling/kernel.scm')
-rw-r--r--starling/kernel.scm13
1 files changed, 7 insertions, 6 deletions
diff --git a/starling/kernel.scm b/starling/kernel.scm
index 15e05e3..0608241 100644
--- a/starling/kernel.scm
+++ b/starling/kernel.scm
@@ -46,7 +46,8 @@
#:use-module (starling config)
#:use-module (starling node)
#:use-module (starling node-2d)
- #:use-module (starling repl)
+ ;;#:use-module (starling repl)
+ #:use-module (starling repl-server)
#:use-module (starling minibuffer)
#:use-module (starling scene)
#:use-module (starling system)
@@ -166,7 +167,7 @@
;; FPS counter
(make <fps-display> #:name 'fps)
;; REPL server
- (make <repl> #:name 'repl))
+ (make <repl-server> #:name 'repl-server))
(run-script kernel
(forever
(sleep 60)
@@ -303,7 +304,7 @@
(if developer-mode?
(let ((title (sdl2:window-title (window kernel))))
(sdl2:set-window-title! (window kernel) (string-append "[ERROR] " title))
- (on-error (& kernel repl) stack key args)
+ (on-error (& kernel repl-server) stack key args)
(sdl2:set-window-title! (window kernel) title))
(apply throw key args)))
@@ -384,17 +385,17 @@ kernel. A convenient procedure for developers."
(add-minibuffer-command "show-fps" show-fps)
(add-minibuffer-command "hide-fps" hide-fps)
-(define-meta-command ((debug-game lisparuga) repl)
+(define-meta-command ((debug-game starling) repl)
"debug-game
Enter a debugger for the current game loop error."
(debugger (& (current-kernel) repl)))
-(define-meta-command ((resume-game lisparuga) repl)
+(define-meta-command ((resume-game starling) repl)
"resume-game
Resume the game loop without entering a debugger."
(set! (repl-debugging? (& (current-kernel) repl)) #f))
-(define-meta-command ((reboot lisparuga) repl)
+(define-meta-command ((reboot starling) repl)
"reboot
Reboot the current scene."
(reboot-current-scene))