SHARE
TWEET

Untitled

a guest Apr 5th, 2012 24 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (def H (derive (make-hierarchy) ::linux ::unix))
  2.  
  3. (defmulti home identity :hierarchy H)
  4. (defmethod home ::unix [os] "/home")
  5.  
  6. (home ::unix)
  7. ;=> "/home"
  8.  
  9. (home ::linux)
  10. ;=> "/home"
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top