time.cljs

gistfile1.clj

(defmacro time [expr]                                                                                                                                                                                                                         
  "Evaluates expr and prints the time it took.  Returns the value of                                                                                                                                                                          
   expr."                                                                                                                                                                                                                                     
  `(let [start# (~'js* "(new Date())")                                                                                                                                                                                                        
         ret# ~expr]                                                                                                                                                                                                                          
     (prn (str "Elapsed time: " (- (~'js* "(new Date())") start#) " msecs"))                                                                                                                                                                  
     ret#))