Add num-cues

1 files changed, 6 insertions, 1 deletions

diff --git a/guile/starlet/cue-list.scm b/guile/starlet/cue-list.scm
index 78fecc5..dd3edbd 100644
--- a/guile/starlet/cue-list.scm
+++ b/guile/starlet/cue-list.scm
@@ -48,7 +48,8 @@
             cue-number-to-index
             cue-index-to-number
             current-cue-clock
-            read-cue-list-file)
+            read-cue-list-file
+            num-cues)
   #:re-export (snap crossfade))
 
 
@@ -75,6 +76,10 @@
   (cue-clock          get-cue-clock))
 
 
+(define-method (num-cues (l <vector>))
+  (vector-length l))
+
+
 (define (qnum a)
   (/ (inexact->exact (* a 1000)) 1000))