changeset 324:7876781520ea

fixed set-cursor so that moving the cursor backwards works
author Robert McIntyre <rlm@mit.edu>
date Wed, 04 Apr 2012 01:04:06 -0500
parents 92ee94945327
children a5cdb2f76307
files clojure/com/aurellem/run/bootstrap_0.clj
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Wed Apr 04 00:56:53 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Wed Apr 04 01:04:06 2012 -0500
     1.3 @@ -378,8 +378,10 @@
     1.4    [n script]
     1.5    (let [key (if (< 0 n) ↓ ↑)]
     1.6      (multiple-times
     1.7 -     n (partial repeat-until-different
     1.8 -                key list-offset) script)))
     1.9 +     (Math/abs n)
    1.10 +     (partial repeat-until-different
    1.11 +              key list-offset)
    1.12 +     script)))
    1.13  
    1.14  (defn set-cursor
    1.15    "Assumes the arrow keys currently control the cursor. Sets