better-if-let.clj

(defmacro better-if-let                                         
  ([bindings then]                                              
     `(better-if-let ~bindings ~then nil))                      
  ([[form tst & rest-bindings] then else]                       
     `(let [temp# ~tst]                                         
        (if temp#                                               
          (let [~form temp#]                                    
            ~(if (seq rest-bindings)                            
               `(better-if-let ~(vec rest-bindings) ~then ~else)
               then))                                           
          ~else))))