From 7d2e2ac3ae9b394b47b87455ca106b9250165cbe Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 3 May 2021 20:00:12 -0400 Subject: scene: Detect improper detachment of current scene. --- starling/scene.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/starling/scene.scm b/starling/scene.scm index 7412727..cda1e4e 100644 --- a/starling/scene.scm +++ b/starling/scene.scm @@ -158,6 +158,10 @@ (() (error "no scene to pop!" mux)))) +(define-method (on-detach (mux ) (scene )) + (when (eq? scene (current-scene mux)) + (error "current scene improperly detached. use push/pop/replace-scene instead."))) + (define-method (on-scenes-empty (mux )) #t) -- cgit v1.2.3