Skip to content
Permalink
Browse files

Allow aborting scene setup altogether

  • Loading branch information...
Shinmera committed Mar 21, 2019
1 parent a37d5a5 commit 0a3020b7d5555929fac183dbd008dad9837eb885
Showing with 5 additions and 1 deletion.
  1. +5 −1 main.lisp
@@ -31,7 +31,11 @@
(process (scene main)))

(defmethod setup-rendering :after ((main main))
(change-scene main (scene main) :old NIL))
(restart-case
(change-scene main (scene main) :old NIL)
(abort ()
:report "Don't set up the scene, leaving it empty."
(clear (scene main)))))

(defmethod setup-scene :around ((main main) (scene scene))
(v:info :trial.main "Setting up ~a" scene)

0 comments on commit 0a3020b

Please sign in to comment.
You can’t perform that action at this time.