gistfile1.clj

(defmacro let+ [vars &rest body]
  (setv cover [])
  (setv uncover [])
  (for* [v vars]
    (if (instance? list v)
      (do
        (setv name (gensym (first v)))
        (.append cover `(try
                          (setv ~name ~(first v))
                          (except)))
        (.append cover `(setv ~(first v) ~(second v)))
        (.append uncover `(try
                            (setv ~(first v) ~name)
                            (except)))
        (.append uncover `(try
                            (del ~name)
                            (except))))
      (do
        (setv name (gensym v))
        (.append cover `(try
                          (setv ~name ~v)
                          (except)))
        (.append cover `(setv ~v None))
        (.append uncover `(try
                            (setv ~v ~name)
                            (except)))
        (.append uncover `(try
                            (del ~name)
                            (except))))))
  `(do
     ~@cover
     (try
       (do ~@body)
       (finally
         ~@uncover))))

(setv x 0)
(print x)
(let+ [[x 1]]
      ; (print (dir))
      ; (print y)
      (print x))
(print x)

(print (let+ [] 'foo))

(let+ [z]
      (print z))

(try
  foo
  (except))

(let+ [[a 2]]
      (print a)
      (let+ [[a 3]]
            (print a))
      (print a))