From 5319a88e99e63fe0864a46b64c195c4d68e2e394 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 9 Sep 2018 14:07:04 -0400 Subject: kernel: Add init keywords to fields. * starling/kernel.scm (): Add init keywords for name, window-config, update-hz, and developer-mode?. --- starling/kernel.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/starling/kernel.scm b/starling/kernel.scm index 5187bc1..49520b8 100644 --- a/starling/kernel.scm +++ b/starling/kernel.scm @@ -73,10 +73,14 @@ #:init-keyword #:fullscreen?)) (define-class () - (name #:accessor name #:init-form "starling-kernel") - (window-config #:accessor window-config #:init-form (make )) - (update-hz #:accessor update-hz #:init-form 60) - (developer-mode? #:getter developer-mode? #:init-form #t) + (name #:accessor name #:init-form "starling-kernel" + #:init-keyword #:name) + (window-config #:accessor window-config #:init-form (make ) + #:init-keyword #:window-config) + (update-hz #:accessor update-hz #:init-form 60 + #:init-keyword #:update-hz) + (developer-mode? #:getter developer-mode? #:init-form #t + #:init-keyword #:developer-mode?) (window #:accessor window) (gl-context #:accessor gl-context) (default-viewport #:accessor default-viewport) -- cgit v1.2.3