# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1331416510 21600
# Node ID 2f478abe57d05f399df604d1f2a1b72cc449a8cf
# Parent  65c2854c587582295570b13a5ba417ff56742cc6
added sanity check for title

diff -r 65c2854c5875 -r 2f478abe57d0 clojure/com/aurellem/title.clj
--- a/clojure/com/aurellem/title.clj	Sat Mar 10 15:36:26 2012 -0600
+++ b/clojure/com/aurellem/title.clj	Sat Mar 10 15:55:10 2012 -0600
@@ -83,12 +83,13 @@
        scroll-text
        scroll-text))
 
-(defn write-intro! []
+(def title-frames 2323)
+
+(defn title-checkpoint! []
   (let [[moves state] (finish-title)]
+    (assert (= title-frames (:frame state)))
     [(write-moves! moves) (write-state! state)]))
 
-(def title-frames 2323)
-
 (defn intro []
   [(read-moves title-frames)
    (read-state title-frames)])
@@ -96,7 +97,5 @@
 (defn test-intro []
   (play-vbm (moves->filename title-frames)))
 
-
-
 ;; TODO might be able to glue these together more elegantly with monads