# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1346488936 18000
# Node ID 58a25fa1517604937bbb868e2bd6776fc73c5daf
# Parent  c6b01ff2f1e5491e0a669ccc5d43c360cac06814
minor formatting changes.

diff -r c6b01ff2f1e5 -r 58a25fa15176 clojure/com/aurellem/run/adv_choreo.clj
--- a/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 03:40:50 2012 -0500
+++ b/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 03:42:16 2012 -0500
@@ -199,9 +199,8 @@
                 ;; clear screen if we are at 0,0
                 0x57 0xB3 ;; D->A, OR E A ==> (= D E 0)
                 0x20 ;; skip clear-screen if D and E are not both zero
-                :clear-screen-length
+                :clear-screen-length])
 
-                ])
               clear-screen
               (flatten
                [;; save all registers
@@ -229,17 +228,21 @@
                    0x20
                    (->signed-8-bit -8)
                 ;; end of do-while-loop
-                
-                
+
                 ;; restore all registers
-                0xF1 0xE1 0xD1 0xC1
+                0xF1 0xE1 0xD1 0xC1])
+
+              render-glyph
+              (flatten
+               [0 0 
                 ])
 
+              
               init (replace
                     {:clear-screen-length (count clear-screen)} init*)
               ]
           
-              (concat init clear-screen))
+              (concat init clear-screen render-glyph))
               
         cleanup
         ;; restore all registers