Skip to content

Instantly share code, notes, and snippets.

@frenchy64

frenchy64/core-typed-pluggable.clj

Created December 2, 2015 22:43
Show Gist options
  • Save frenchy64/813a4b7d7434fd1f2c36 to your computer and use it in GitHub Desktop.
Save frenchy64/813a4b7d7434fd1f2c36 to your computer and use it in GitHub Desktop.
Download ZIP
Pluggable type system idea
Raw
core-typed-pluggable.clj
(add-core-async-handler! :print-stuff [Any -> nil])
(register-core-typed-emission async/handler (fn [[v kw & args]] `(~v ~kw ~@(map #(add-handler cast % kw) args)))
(register-core-typed-emission async/emit! (fn [[v kw & args]] `(~v ~kw ~@(map #(add-handler cast % kw) args)))
(handle :print-stuff prn)
;=> (handle :print-stuff (cast [Any -> nil] prn))
(emit! :print-stuff "a")
;=> (emit! :printf-stuff (cast String "a"))
@frenchy64
Copy link
Author

Related: emiln/slacker#28

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment