recur.clj

; (1) ok, this obviously shouldn't work, and doesn't (sanity check)
(loop [continue true]
  (when continue
    (try
      (recur false)
      (catch Throwable t
        (recur false))
      (finally
        (println "finally")))))
#<CompilerException java.lang.UnsupportedOperationException: Cannot recur from catch/finally (NO_SOURCE_FILE:12)>


; (2) recur is allowed out of the try block, but the finally
; is *not* run!  This should either work, or don't allow a
; recur *out* of any part of a try/catch/finally.
(loop [continue true]
  (when continue
    (try
      (recur false)
      (finally
        (println "finally")))))
nil


; (3) now, this works (sanity-check)
(loop [continue true]
  (when continue
    (try
      (dotimes [x 2] (println "hello"))
      (finally
        ))))
hello
hello
nil

; (4) but it looks like the catch/finally check doesn't take
; the recur target into consideration.  This should definitely work,
; though I feel like this has been raised before...?
(loop [continue true]
  (when continue
    (try
      (finally
        (dotimes [x 2] (println "hello"))))))
#<CompilerException java.lang.UnsupportedOperationException: Cannot recur from catch/finally (NO_SOURCE_FILE:33)>