Skip to content

Instantly share code, notes, and snippets.

@tdammers

tdammers/def-strict

Created July 1, 2015 10:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tdammers/e3fc0d2f92c10b8f4d20 to your computer and use it in GitHub Desktop.
Save tdammers/e3fc0d2f92c10b8f4d20 to your computer and use it in GitHub Desktop.
Download ZIP
def thwarting laziness?
Raw
def-strict
user=> (defn foo [& fns] (fn [] (->> fns (map #(%)) (filter (comp not nil?)) (first))))
#'user/foo
user=> ((foo (fn [] nil) (fn [] "OK") (fn [] (do (print "NONONO") "NO"))))
"OK"
user=> (def blah (foo (fn [] nil) (fn [] "OK") (fn [] (do (print "NONONO") "NO"))))
#'user/blah
user=> (blah)
NONONO"OK"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment