diff options
| -rw-r--r-- | starling/transition.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/starling/transition.scm b/starling/transition.scm index f673d9c..826032e 100644 --- a/starling/transition.scm +++ b/starling/transition.scm @@ -66,8 +66,10 @@ ;;; (define-class <transition> (<scene>) - (scene-from #:getter scene-from #:init-keyword #:from) - (scene-to #:getter scene-to #:init-keyword #:to) + (scene-from #:getter scene-from #:init-keyword #:from + #:init-thunk current-scene) + (scene-to #:getter scene-to #:init-keyword #:to + #:init-thunk previous-scene) (duration #:getter duration #:init-keyword #:duration)) (define-generic do-transition) |