# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333519446 18000
# Node ID 7876781520ea4f19364cf41e2ece30498d460e8c
# Parent  92ee94945327226721cc7ea3ec56b1dc64cc79a3
fixed set-cursor so that moving the cursor backwards works

diff -r 92ee94945327 -r 7876781520ea clojure/com/aurellem/run/bootstrap_0.clj
--- a/clojure/com/aurellem/run/bootstrap_0.clj	Wed Apr 04 00:56:53 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Wed Apr 04 01:04:06 2012 -0500
@@ -378,8 +378,10 @@
   [n script]
   (let [key (if (< 0 n) ↓ ↑)]
     (multiple-times
-     n (partial repeat-until-different
-                key list-offset) script)))
+     (Math/abs n)
+     (partial repeat-until-different
+              key list-offset)
+     script)))
 
 (defn set-cursor
   "Assumes the arrow keys currently control the cursor. Sets