# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333527914 18000
# Node ID a5cdb2f7630706db61653b88ff7a22864a85c272
# Parent  7876781520ea4f19364cf41e2ece30498d460e8c
improved efficiency of set-cursor

diff -r 7876781520ea -r a5cdb2f76307 clojure/com/aurellem/run/bootstrap_0.clj
--- a/clojure/com/aurellem/run/bootstrap_0.clj	Wed Apr 04 01:04:06 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Wed Apr 04 03:25:14 2012 -0500
@@ -379,8 +379,8 @@
   (let [key (if (< 0 n) ↓ ↑)]
     (multiple-times
      (Math/abs n)
-     (partial repeat-until-different
-              key list-offset)
+     (partial first-difference 
+      [] key list-offset)
      script)))
 
 (defn set-cursor