Skip to content

Instantly share code, notes, and snippets.

@amalloy
Created July 14, 2011 19:42
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 amalloy/1083265 to your computer and use it in GitHub Desktop.
Save amalloy/1083265 to your computer and use it in GitHub Desktop.
sexpbot.gist> (defprotocol Delete
"A protocol for deleting elements."
(internal-delete [this]
"Deletes this vertex or edge."))
(extend-protocol Delete
Integer (internal-delete [v] (.delete v))
Double (internal-delete [e] (.delete e)))
(defn delete!
"Deletes the graph element ge and more elements."
[ge & more]
(internal-delete ge) ;; ERROR HERE
(when (seq more)
(recur (first more) (next more))))
#'sexpbot.gist/delete!
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment