Permalink
Browse files

Move print-log-detailed after trace to idiomatically use after define

The reason this even worked is, that data_readers created the trace var before
  • Loading branch information...
1 parent ad1ff13 commit cc2c2aa831cb25b6c637cdda44617e3acfbf3886 @bendlas bendlas committed with Nov 1, 2012
Showing with 10 additions and 10 deletions.
  1. +10 −10 src/spyscope/core.clj
View
@@ -58,16 +58,6 @@
" => " value-string)
:frame1 (str (first frames-base))}))
-(defn print-log-detailed
- "Reader function to pprint a form's value with some extra information."
- [form]
- (letfn [(print [m] (assoc m ::print? true))]
- (->> form
- meta
- print
- (with-meta form)
- trace)))
-
(defn print-log
"Reader function to pprint a form's value."
[form]
@@ -94,6 +84,16 @@
:generation g#))))))
f#))
+(defn print-log-detailed
+ "Reader function to pprint a form's value with some extra information."
+ [form]
+ (letfn [(print [m] (assoc m ::print? true))]
+ (->> form
+ meta
+ print
+ (with-meta form)
+ trace)))
+
(comment
(defn fib
"Fibonacci number generator--an experimental tracing candidate"

0 comments on commit cc2c2aa

Please sign in to comment.