Permalink
Browse files

declared vars as dynamic for clojure 1.3 compat.

  also added a .gitignore file
  • Loading branch information...
1 parent e1e74b8 commit 4c1c8e28cec2bface37410042f59a6a8c0b95996 @DrTom committed Apr 13, 2012
Showing with 11 additions and 3 deletions.
  1. +8 −0 .gitignore
  2. +3 −3 src/alex_and_georges/debug_repl.clj
View
8 .gitignore
@@ -0,0 +1,8 @@
+/pom.xml
+*jar
+/lib
+/classes
+/native
+/.lein-failures
+/checkouts
+/.lein-deps-sum
View
6 src/alex_and_georges/debug_repl.clj
@@ -54,7 +54,7 @@
(let [symbols (keys &env)]
(zipmap (map (fn [sym] `(quote ~sym)) symbols) symbols)))
-(declare *locals*)
+(declare ^:dynamic *locals*)
(defn view-locals []
*locals*)
@@ -75,7 +75,7 @@ values."
request-exit
input)))
-(def level 0)
+(def ^:dynamic level 0)
(def counter (atom 1000))
(defn inc-counter []
(swap! counter inc))
@@ -90,7 +90,7 @@ values."
(reset! element (first form))
(throw quit-dr-exception))
-(def exit-dr-exception
+(def ^:dynamic exit-dr-exception
(Throwable. "Exiting back to main repl from debug-repl"))
(defn exit-dr []

0 comments on commit 4c1c8e2

Please sign in to comment.