Dynamically assemble graphics context

borodust · Jul 12, 2020 · 6738b95 · 6738b95
1 parent c726a1b
commit 6738b95
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/graphics/context.lisp b/graphics/context.lisp
@@ -16,6 +16,8 @@
 
 (defmethod initialize-instance :after ((this graphics-context) &key system)
   (with-slots (executor) this
+    (unless system
+      (error ":system missing"))
     (flet ((%invoke (task)
              (let ((*system* system)
                    (*graphics-context* this)

diff --git a/graphics/system.lisp b/graphics/system.lisp
@@ -77,7 +77,8 @@
 
 
 (defun graphics-context-assembly-flow ()
-  (>> (assembly-flow 'graphics-context :system (graphics))
+  (>> (->> ()
+        (assembly-flow 'graphics-context :system (graphics)))
       (for-graphics (instance)
         (register-shared-context instance))))