gistfile1.clj

; This function returns a closure. That is, the returned anonymous function
; saves a reference to the free variable "n".
(defn make-adder [n]
  "Returns a function that sums a given value (m) with n."
  (fn [m]
    (+ n m)))

(def add-10 (make-adder 10))

; When we invoke the function, rather than creating a new environment, it will
; reinstate the one that was active when it was defined.
(print (add-10 3))  ; Prints 13.