Skip to content

Instantly share code, notes, and snippets.

@fogus

fogus/re-trammel.clj

Created August 27, 2010 18:47
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save fogus/553949 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save fogus/553949 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
re-trammel.clj
(defn foo [s] (prn s))
(provide-contracts
[foo "Only allow foo" [s] [#"foo"]])
(foo "foo")
; "foo"
(foo "bar")
; java.lang.AssertionError: Assert failed: (clojure.core/re-matches #"foo" s)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment