Permalink
Browse files

code cleanup, removal of warnings

  • Loading branch information...
1 parent 54c8b9f commit aaa5e164c762506fb042add93451c82e19e145a5 @laurentpetit committed Oct 11, 2012
Showing with 6 additions and 5 deletions.
  1. +0 −2 src/paredit/parser.clj
  2. +6 −3 test/paredit/tests.clj
View
@@ -124,8 +124,6 @@
open-unquote open-anon-arg open-keyword open-discard whitespace open-comment
open-char})
-(def *brackets-tags* #{:list :map :vector :string :set :fn :regex})
-
(defn view-children-seq [view abstract-children]
(map #(% view) abstract-children))
View
@@ -10,7 +10,7 @@
(:require [paredit.static-analysis :as st])
(:use paredit.loc-utils))
-(def *spy?* (atom false))
+(def ^:dynamic *spy?* (atom false))
(defn start-spy [] (reset! *spy?* true))
(defn stop-spy [] (reset! *spy?* false))
@@ -267,7 +267,10 @@
#_(leave-for-offset-tests)
#_(loc-containing-offset-tests))
-(def ^{:doc
+(def ^{:dynamic true
+ :doc
"defines a text, with :offset being the cursor position,
- and :length being a possible selection (may be negative)"}
+ and :length being a possible selection (may be negative)"}
+
+
*text* (atom {:text "" :offset 0 :length 0}))

0 comments on commit aaa5e16

Please sign in to comment.