From 2e91dc573c62cd8f32e58a5bd62444e3568c34ab Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 11 Feb 2016 21:42:00 -0500
Subject: Remove unused sly-init procedure.

* sly.scm (sly-init): Delete.
---
 sly.scm | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

(limited to 'sly.scm')

diff --git a/sly.scm b/sly.scm
index 3ec28ff..6eb3698 100644
--- a/sly.scm
+++ b/sly.scm
@@ -21,11 +21,7 @@
 ;;
 ;;; Code:
 
-(define-module (sly)
-  #:use-module (sly window)
-  #:use-module (sly render font)
-  #:use-module ((sdl2) #:prefix sdl2:)
-  #:export (sly-init))
+(define-module (sly))
 
 (eval-when (eval load compile)
   (begin
@@ -52,9 +48,3 @@
                 (lambda (m)
                   (module-use! i (resolve-interface m))))
               %public-modules)))
-
-(define* (sly-init #:key (fonts? #t))
-  "Initialize Sly's global state, such as the OpenGL context."
-  (sdl2:sdl-init)
-  (init-window)
-  (when fonts? (enable-fonts)))
-- 
cgit v1.2.3