fork download
  1. (defn f [x]
  2. (+ x 1))
  3.  
  4. (defmacro f-macro [x]
  5. `(f ~x))
  6.  
  7. (println (letfn [(f [x] (- x 1))] (f-macro 10)))
Success #stdin #stdout 1.06s 220224KB
stdin
Standard input is empty
stdout
11