From f7cedbe0ff797df7580908e8fe16d182671e02b2 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 23 Jan 2022 15:27:15 +0100
Subject: Syntax for creating transition effects

---
 guile/starlet/snap-transition.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'guile/starlet/snap-transition.scm')

diff --git a/guile/starlet/snap-transition.scm b/guile/starlet/snap-transition.scm
index c44a2ea..ed9df4b 100644
--- a/guile/starlet/snap-transition.scm
+++ b/guile/starlet/snap-transition.scm
@@ -25,6 +25,6 @@
   #:export (snap))
 
 (define (snap)
-  (make <transition-effect>
-        #:func (lambda (incoming-state clock)
-                 incoming-state)))
+  (make-transition
+    (incoming-state clock)
+    incoming-state))
-- 
cgit v1.2.3