diff options
Diffstat (limited to 'guile/starlet/transition-effect.scm')
| -rw-r--r-- | guile/starlet/transition-effect.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/guile/starlet/transition-effect.scm b/guile/starlet/transition-effect.scm index 6b59be4..7594b05 100644 --- a/guile/starlet/transition-effect.scm +++ b/guile/starlet/transition-effect.scm @@ -22,7 +22,8 @@ #:use-module (oop goops) #:export (<transition-effect> transition-effect? - transition-func)) + transition-func + make-transition)) (define-class <transition-effect> (<object>) @@ -35,3 +36,10 @@ (define (transition-effect? a) (is-a? a <transition-effect>)) + +(define-syntax make-transition + (syntax-rules () + ((_ (a b) expr ...) + (make <transition-effect> + #:func (lambda (a b) + expr ...))))) |