fork download
copy 
  1. (defn im-stmts [stmts]
  2.   (cond
  3.     (empty? stmts) `nil
  4.  
  5.     (and (seq? (first stmts))
  6.          (= 'let (ffirst stmts)))
  7.     `(let ~(second (first stmts))
  8.        ~@(im-stmts (rest stmts)))
  9.  
  10.     true `(do ~(first stmts) ~(im-stmts (rest stmts)))))
  11.  
  12. (defmacro im [& body]
  13.   (im-stmts body))
  14.  
  15. (im (let [x 1])
  16.     (println x)
  17.     (let [y 2])
  18.     (println y)
  19.     (println (+ x y)))
Success #stdin #stdout 1.71s 335104KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
2
3
https://ideone.com/Udb6OL
language:
Clojure (clojure 1.10.0)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!